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PREFACE 



Congratulations on your purchase of UCSD Pascal for your 
Apple Macintosh computer! 

The discussions in this manual assume that you are already 
familiar with your Macintosh. If you are not, we suggest that 
you first read the introductory chapters of Macintosh^ your 
owner's guide. 

The product you have purchased contains a UCSD Pascal 
compiler and a group of program development tools. The tools 
include a program and text file editor, a resource compiler, a 
symbolic debugger, a librarian utility, a runtime option 
configuration utility, and a set of interface units to the Macintosh 
ROM. 

With these tools, you can build sophisticated application 
programs directly on a Macintosh with 128K or 512K of memory. 
The Macintosh interface units give you access to virtually all of 
the Macintosh ROM routines. Thus, you can write programs 
that make use of overlapping windows, a menu bar and desk 
accessories. We have included an example program that shows 
you how to access some of these features. 

The Pascal language supported by the compiler is an extended 
version of UCSD Pascal designed for access to the Macintosh 
ROM, The new language features include: 

• Support for 32—bit integers (type integer2 ). 

® A new setlength intrinsic that makes it easier to set the length 
of a string. 
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• New bit manipulation intrinsics: band , bor, bxor , shiftleft , 
and shiftrighto 

• An enhanced sizeof intrinsic that allows yon to specify the 
units that sizeof counts in. 

® Pointer intrinsics that help you to make use of 32— bit 
absolute addresses used by the Macintosh ROM: adr , pointer ^ 
offset , £trinc, absadr , reladr , absmove , derefhnd , and locate , 

• A new type of external procedure that generates an in— line 
call to a Macintosh ROM routine. 



UCSD Pascal programs are supported by a sophisticated runtime 
package that eliminates many of the worries associated with 
writing large programs. The runtime package 

• provides simplified I/O through the Pascal I/O intrinsicSe 

® supports dynamic memory management through the Pascal 
intrinsics new and dispose . 

• handles dynamic segment overlays automatically. 
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1 

GETTING STARTED 



This chapter gets you started writing UCSD Pascal programs for 
your Macintosh. The chapter is organized into the following 
sections: 

HARDWARE REQUIREMENTS discusses the hardware 
components that are required or recommended for effective use of 
this product. 

DISK CONTENTS details the composition of the disks you 
received with this product. 

BACKING UP DISKS tells you how to make back up copies of 
your master disks. 

RUNNING A PROGRAM guides you through the steps of 
creating and running a simple UCSD Pascal program. 

ORGANIZATION OF THE MANUAL introduces you to the 
organization of the remainder of this user manual. 



HARDWARE REQUIREMENTS 

The product you have purchased is designed to work on the 
Macintosh with 128K or 512K bytes of memory and on Lisa 
under Mac Works. Programs may operate slightly differently in 
different hardware environments, based on memory size. In 
particular, when running on a machine with more memory, 
programs will tend to run faster and be able to handle more data. 
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Although this product will run on a one drive Macintosh, if you 
plan on developing programs that use the Macintosh interface we 
strongly suggest that you use two disk drives. 

One option of the Debugger allows you to interact with it using 
an external terminal attached to the Printer port on the back of 
your Macintosh. An external terminal is not necessary for using 
the Debugger, but if you have one, it can make debugging easier, 
particularly when writing programs which put up windows on the 
screen^ 



DISK CONTENTS 

You received two disks when you purchased this product. One of 
the disksj labeled UCSD Pascal 1, is a bootable Macintosh disk. 
The other disk, labeled UCSD Pascal 2, is not bootable. 

The following files are located on UCSD Pascal 1: 

® Set Optloiis« Set Options is a utility program that allows 
you to set the runtime options of a code file. 

• Mac Library. Mac Library is a collection of interface units 
that are used by programs that access the Macintosh ROM 
routines. 

• Compllero Compiler is the UCSD Pascal compiler. 

® Editor^ Editor is a program and text file editor. 

® Executive* Executive provides menu style access to your 
program development tools. 

« Pascal Riintimee Pascal Runtime is the runtime support 
package for Pascal programs. 

® p-*MacMiiee p— Machine is the virtual machine emulator 
that supports running the p~code generated by the UCSD 
Pascal compiler. 
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• Empty Program. Empty Program contains the standard 
program resources. 

Three of the files, Pascal Runtime, p— Machine and Empty 
Program, are located within a folder called Pascal Folder. 

The following files are located on UCSD Pascal 2: 

• RMaker. RMaker is a resource compiler program that allows 
you to add your own resource definitions to a program. 

• Librarian. Librarian is a utility program that allows you to 
combine UCSD Pascal units into a single library file. 

• Debug Runtizne. Debug Runtime is a version of Pascal 
Runtime that contains the Debugger and performance 
monitor. 

• ErrorhandLCODE. Errorhandl.CODE is a utility unit that 
provides various program control functions to the user. 

• Mac Interface« Mac Interface is a library of code files that 
contain the interface to the Macintosh ROM routines. 

• Grow. Grow is the source to an example UCSD Pascal 
program that accesses the Macintosh ROM to handle a menu 
bar, windows and desk accessories. 

• Grow.R. Grow.R is the resource definition file for the Grow 
program. 

Two of the files. Grow and Grow.R, are located within a folder 
called Example Folder. 
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BACKING UP DISKS 

You should immediately make a backup copy of the disks that 
you received with this product. This will insure that you donH 
accidentally loose any information contained on the disks. 

Macintosh^ your user^s guide^ describes in detail how you make 
backup copies of disks on the Macintoshc Here is a summary of 
the steps: 

1. Insert the disk you want to copy^ 

2» Insert the disk you want to copy to« 

3. Drag the icon of the disk you want to copy to the icon of the 
other disk. 

If you have a one drive Macintosh it is faster for you to use the 
Disk Copy program to make backup copies of your disks. 

Once you have made the backup copies, put the copies in a safe 
place. 

WARNINGS You cannot arbitrarily move UCSD Pascal 
programs to different volumes and expect them to run. The 
names of the two runtime support files are embedded in each 
code fikc If you move a code file to a different volume, you may 
need to update the runtime support file names with the Set 
Options utility. See the GENERAL OPERATIONS chapter for 
details. 



RUNNING A PROGRAM 

This section guides you through the steps of compiling and 
running a simple Pascal program. Even if you don't know the 
Pascal language, you should be able to follow the steps outlined 
here. 
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Boot up your Macintosh with the UCSD Pascal 1 disk. All of 
the operations described below will be done on this disk. 

Editing the Program 

First you must create a text file to compile. You create a text file 
by using the Editor. Start the Editor by double— clicking its 
icon. 

You can probably figure out by yourself how to run the Editor, 
based on your knowlege of MacWrite. If you are not familiar 
with MacWrite, or if you have trouble using the Editor, refer to 
the EDITOR chapter. 

Enter the program listed beloWj or a program of your own 
design; 

program f ir»"bj 
r««d i n^ 



Now exit the editor, saving what you have typed in a file called 
FIRST. 



Compiling the Programi 

The compiler translates the program you have edited into an 
executable code file. You start the compiler by double— clicking 
its icon. The compiler will ask you four questions: 

1. Compile what text? Type FIRST, then press < Return >. 

2. To what code file? Press < Return >. The output will be 
put in FIRST.CODE, by default. 
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3. Use what resource file? Press <Return>. The compiler 
will use the standard resources from the Empty Program file. 

4. File for listing? Press <Return>. This disables listing 
generation. 

If all goes well, the compiler will write something like the 
following to your screen: 

< 0> . . 
TEST 

< 2>.e 

TEST 

S ! I ne« compiled in 0s00£20, IS I i n«« pmr mlnu^k^m 



If the compiler finds a problem in your program, it will generate 
a syntax error message^ At this point, you should press 

< Enter > to exit the compiler^ then fix the problem using the 
Editor. Check that you typed in the example program exactly 
like it appears above, then recompile the program^ 

Running the Program 

If the compiler has run to completion, you will find a file called 
FIRSToCODE on your disk. This file contains the Pascal code 
generated from your text file by the compiler. Running the 
program is easy- — just double— click its icon. If you used the 
example program listed above, you should see the words 

hi ' -feh©!** 

printed to the screen when you run the program. Press 

< Return > to terminate the program. 

This section showed you how to run a very simple Pascal 
program. For more information about compiling and running 
programs, refer to the GENERAL OPERATIONS chapter. 
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ORGANIZATION OF THE MANUAL 

This section describes the content of each chapter in the manual 
and gives some hints on how to use the manual. 

Chapter 2, GENERAL OPERATIONS, discusses how to compile 
and run a program and how to develop an application. 

Chapter 3, EDITOR, covers how to run the program and text file 
editor. 

Chapter 4, PASCAL LANGUAGE, is a supplement to The UCSD 
Pascal Handbook, It describes the new language features found in 
this version of UCSD Pascal. 



Chapter 5, MACINTOSH INTERFACE, discusses how to use the 
Macintosh interface units to call the Macintosh ROM. 



Chapter 6, RMAKER, describes the resource compiler program, 
which allows you to add resources to a code file. 

Chapter 7, LIBRARIAN, describes the Librarian utility, which 
allows you to combine Pascal units into a single library file. 

Chapter 8, DEBUGGER, describes the operation of the Pascal 
debugger, which allows you to set break points, single step 
p— code, and examine and patch memory. 

Chapter 9, MEMORY MANAGEMENT, describes the memory 
management of this implementation of UCSD Pascal. This 
chapter will be useful if you need to understand Pascal's memory 
management in order to write an application program. 

Chapter 10, P~MACHINE ARCHITECTURE, describes the 
p— code instruction set that is supported by the underlying 
p—Machine. You will need to refer to this chapter if you use the 
Debugger. 
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Appendix A, MACINTOSH INTERFACE, contains listings of the 
Macintosh interface units, and index of interface identifiers and a 
table of unit dependencies. 

Appendix B, ERROR MESSAGES, lists the error messages that 
may be generated by programs and the runtime support package,. 

Appendix C, P— CODE TABLES, contains numerical and 
alphabetical p— code tables. An index is also provided which you 
can use to locate the description for a p— code within the 
P-MACHINE ARCHITECTXJRE chapter. 

If you are not a Pascal programmer, we suggest that you read the 
tutorial section (Part 11) of The UCSD Pascal Handbook firsto 
This will give you a quick introduction the the Pascal language. 
You can use some of the example programs to practice editing 
and compiling programs on the Macintosh. WARNING: a few 
of the programs are not appropriate for this version of UCSD 
Pascal. 

If you are already a Pascal programmer, start by reading the first 
two sections of the GENERAL OPERATIONS chapter. This will 
give you the details of compiling and running Pascal programs. 
Next, you should read the EDITOR and PASCAL LANGUAGE 
chapters. The UCSD Pascal Handbook will be useful if you are 
not familiar with the UCSD dialect of PascaL You may want to 
read the DEBUGGER chapter to learn how to use the Debugger. 
Some further secions of the GENERAL OPERATIONS chapter 
may be useful. 

If you want to write programs that call the Macintosh ROM 
routines to do graphics or to display windows and menu bars, 
you must first acquire a copy of the Inside Macintosh manuaL As 
of this printing, Inside Macintosh is only available in draft form 
from Apple. Inside Macintosh gives you the definitions of the 
Macintosh ROM routines. You must use Inside Macintosh in 
conjunction with the MACINTOSH INTERFACE chapter of this 
manuaL Also, you will need to be very familiar with the UCSD 
Pascal extensions described in the PASCAL LANGUAGE 
chapter. 
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Finally, if you want to build sophisticated applications on the 
Macintosh you will need to read the RMAKER chapter and the 
later sections of the GENERAL OPERATIONS chapter. 
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GENERAL OPERATIONS 



This chapter contains information and instructions on using The 
MacAdvantage: UCSD Pascal. It explains how to use this 
product to create UCSD Pascal programs for your Macintosh, 
Your programs can take full advantage of the power of UCSD 
Pascal and the Macintosh ROM to provide meaningful solutions 
to the kind of applications the Macintosh was designed to solve. 

This chapter consists of five sections as follows: 

CREATING PROGRAMS instructs you on use of the compiler. 

RUNNING PROGRAMS contains the information you need to 
take full advantage of the UCSD Pascal runtime environment. 

USING EXECUTIVE explains the operation of the Executive 
utility which you can use to make your program development 
process easier and faster. 

ACCESSING FILES describes how your programs can interact 
with Macintosh files and serial devices. 

BUILDING AN APPLICATION outlines the steps you need to go 
through in order to construct a sophisticated Macintosh 
application. 
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CREATING PROGRAMS 

This section discusses how to run the UCSD Pascal compiler to 
create programs for your Macintosh. For information on the 
UCSD Pascal language, refer to The UCSD Pascal Handbook and 
the PASCAL LANGUAGE chapter. 

Using the Compiler 

The Compiler takes a text file as input and generates a code file 
as outputc The code file generated consists of two parts: the data 
fork and the resource fork. The data fork contains p— code, 
which is executed by a p— Machine emulator. The resource fork 
contains information about the runtime environment required by 
your program. More information on the resource fork of an 
application can be found later in this chapter and in the chapter 
RMAKER. 

The Compiler will accept for input any standard Macintosh text 
file. This file will usually be generated by the Editor supplied 
with this compiler, but it could be generated by Mac Write or by 
another Pascal program. If you use MacWrite files as input to 
the compiler, you must specify that the output file from 
MacWrite be stored in "text only" mode. 

You start the Compiler by opening its icon: 

Compiler 
Figure 2— lo Compiler Icon. 

Responding To Startup Questions 

The Compiler begins by asking four questions to obtain file 
names. Either the Macintosh or Pascal I/O conventions for file 
names may be used. These conventions are defined in File 
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Naming Conventions later in this chapter. The Compiler accepts 
only 40 characters of input to each question, so be sure to enter 
no more than 40 characters. Entering more than 40 characters 
will cause a string overflow runtime error to occur. 

The first question asked is: 

The possible responses to this question are: 

• Entering the name of the text file you wish to compile. The 
Compiler uses the name exactly as you specify it, including 
leading, embedded, and trailing blankso It does not append 
any kind of suffix to the name you specify in order to locate 
the file. 

• Pressing < Return > or < Enter >< Return > to terminate 
the compilation without generating an output code file. 

The second question asked is: 
To wha-b eod« f i l«? 

You should respond to this question in one of the following ways: 

• Entering the name of the code file you wish the compiler to 
create. The Compiler will add a .CODE suffix to the name 
you specify. (The suffix is added by the Compiler only as a 
safeguard to prevent the accidental destruction of text files. 
It is not necessary to maintain the suffix for execution of the 
resulting code file.) 

• Pressing < Return >. This causes the Compiler to generate 
its output to a code file with the same name as the input file 
with a .CODE suffix added. If you choose to use this default, 
be sure that you did not specify an input text file name longer 
than 35 characters. 
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• Pressing < Enter >< Return > to immediately terminate the 
compilatione 

The third question asked is: 

Use wha't resource f i le? 



This question is asking you to specify a source for the resources 
that the Compiler should copy to 'the output code file. You 
should respond to this question in one of the following ways: 

• Entering the name of a file that contains the resources you 
want copied. 

• Pressing < Return >. This directs the Compiler to attempt to 
copy the resources from the file Empty Program. (The file 
Empty Program must be on the same disk as the Compiler,) 
As supplied to you, Empty Program contains the standard set 
of resources required by a UCSD Pascal program. 

• Pressing <Enter> <Return> to terminate the compilation. 

The resource file name you specify should either be Empty 
Program or another file known to have valid UCSD Pascal 
resources. Such files can be created either with the Compiler or 
RMaker. The Compiler will use the resources of the file you 
specify, regardless of whether they are valid UCSD Pascal 
resources. Should the file you specify not have valid UCSD 
Pascal resources, the resultant object code file will be unuseable. 
For more information on creating resource files, see the 
RMAKER chapter. 

If the text file you are compiling is not a program (i.e. you are 
compiling one or more units), the standard set of resources in 
Empty Program will always be sufficient. 

You cannot specify the same name for your resource file source as 
you specified for the code file. This means that if you want to 
preserve a unique set of resources for your program to be used 
each time it is compiled, these resources will have to be stored in 
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a file which has a different name than that which you are giving 
to your program. 

The fourth question asked by the Compiler is: 

F1 I© for I i«'bing? 

You should respond to this question in one of the following ways: 

• Pressing < Return > if you do not want the Compiler to 
generate a listing. 

• Entering the name of the file or Macintosh serial device to 
which you want the compiled listing written. Unless the first 
character of the file name is a period, the suffix oLIST will be 
added. 

® Pressing < Enter >< Return > to terminate the compilation. 

After the Compiler is finished, you may examine or print the 
listing file using the Editor. Note, however, that listing files 
consume large amounts of disk space. Should the disk containing 
the listing file become full during compilation, the Compiler will 
abort and both the code and listing files will be lost. A common 
listing output file is .BOUT, which directs the listing to the 
printer. Other permissable listing output files include the other 
serial devices: .AOUT, .CONSOLE, and .DBGTERM; the 
characteristics of these files are discussed in Serial Devices later in 
this chapter. 

NOTE: When using the Apple Imagewriter in normal text mode, 
some print lines generated by the Compiler will be longer than 
8.5". The extra characters past the end of the page margin will 
be over— printed on top of the beginning of the line. To avoid 
this, you can change the character pitch selected when the printer 
is powered on to ultracondensed. Page 40 of the Imagewriter 
User^s Manual describes how to do this. 
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The $L compiler option can also be used to specify a name for the 
listing file. 

Evaluating Compiler Progress 

While the Compiler is runnings it displays a report of its progress 
on the screen: 



< 0>o ...... e ....... 

INITIALI 

< 19>.o. . .. . 

< S0>........... 

AROUTINE 

< 61> ................ c . o ... o ......... .- 

< 100> ................... 

MYPROQ 

< 119>. ........... 

< 150> 

INITXALI . 
MYPROG 

16S lines eompited In 0s00s25; 396 lines per mtnui^e 



During the first pass, the Compiler displays the name of each 
routine (INITIALI, AROUTINE and MYPROG in this example). 
The numbers enclosed by angle brackets, < >, are current line 
numbers. Each dot represents one source line compiled. 

During the second pass, the names of the segments are displayed 
(INITIALI and MYPROG in the example). Here, each dot 
represents the compilation of one procedure or function. 

You can suppress this output by using the $Q compiler option in 
your input textfile. 

Synt&x Errors 

If the Compiler detects an error while compiling a program, it 
generates a syntax error. When this happens, the text where the 
error occurred is displayed along with an error number and 
message. Here is an example: 

< o> ..... . 
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w,x,y: reel < 

Syn-tax Error 104 sUndec I • red Iden-bif ler 

Line 7 

Type <«paee> t>o con-tinue, <£n^er> 'to 'termlne'te 



For each syntax error, a message like the one above is displayed. 
The Compiler gives you the option of pressing either < Space > 
to continue the compilation or < Enter > to terminate the 
compilation. Error numbers greater than 400 are always 
considered fatal and the Compiler will abort regardless of your 
input. 

The Compiler issues three additional fatal error messages. Their 
occurrance is rare, as they usually mean that some kind of 
internal error condition has been detected. All three messages 
wait for you to respond to them by pressing any key on the 
keyboard. The actual response is immaterial; it is just an 
acknowledgement that you have seen the message. This is done 
because the screen contents will be erased by the Finder after the 
Compiler terminates. 

CofnpHat>1on abor-ted due 'to I/O error XXX 
Prmmm any key to exi-t. 



The Compiler was unable to perform an I/O operation on one of 
the files it has open. XXX is the ioresult code passed back from 
the Macintosh Operating System. A list of these result codes 
appears in Appendix B. You should check that your Macintosh 
and its peripherals are all working correctly and then retry the 
compilation. 

Error wri'tmg file, no-t enough room. 
Prmmm any key to exit*. 



The Compiler was unable to write a block of information to disk 
because the disk it was trying to write to was full. This error 
usually occurs when you are trying to write a listing file to disk. 
It can also happen when trying to write out the .CODE file you 
are creating. Make sure that the disk you are trying to write to 
is not full. Alternatively, if you are making a listing file, try 
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sending it to the file .BOUT. Then retry the compilation. 



Compila-tton aborted du« -bo backbond error XXX 
Preas any key "to ext-t. 



The Compiler has detected an abnormal condition within the files 
it creates while compiling your program. XXX is an internal 
code signifying the error. Retry the compilation. Please contact 
your technical support representative if the error appears again. 

Compiled Listings 

The Compiler optionally produces a compiled listing of the 
program. This listing contains source text, along with 
information about the compilation. Compiled listings are useful 
when youVe using the Debugger. 

You can produce a compiled listing in two ways. You can give a 
file name to the compiler's listing file question^ or you can use the 
$L compiler option. 

Here is the entire compiled listing for a small program: 

UCSD Paacal CompiUr [IRO.O] 10/ 8/84 

1 2 Isd 1 progrmm Facfe| 

2 2 Isd 1 var 

3 2 Isd I 1i In-feegerj 

4 2 lid 2 pr©ds r^a ! | 
6 2 1 s O O b«g I n 

6 2 Isl O wri'be8n<*o facfeoriat ©f p>*)| 

7 2 Itl 18 prodsa lcO| 

8 2 Isl 23 for i s« 1 ^© 20 d© 

9 2 1j2 41 b«g»r4 

10 2 1j3 41 pr©dsa pr©d * f| 

11 2 IsS SO wr1t«ln<i,> ' ,prod) $ 

12 2 ls2 89 ondi 

13 2 sO O end. 

^ndi ©f C©mpi ia^lon. 



The numbers that precede each source line are: 
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The first column is the line number. Line numbers start with 
1 and are incremented for each line encountered by the 
Compiler during compilation. Lines found in files which are 
included by the $1 compiler directive and the uses statement 
are also counted. 

The second column is the Pascal segment number. This entire 
example is segment 2. 

In the third column is the procedure number followed by a 
colon and the statement nesting level. All of the example is 
procedure 1. Procedure numbers are important in 
determining program locations either in the Debugger or when 
a runtime error occurs. The statement nesting level is an 
indication of how deeply the text is nested within Pascal 
structured statements. The statement nesting level field of 
data lines contains the letter "d". 

The fourth column contains the word offset of data or the 
byte offset of code. Data word offsets are relative to either 
the start of a segment for global data, or to the beginning of a 
procedure's activation record for a procedure's local data. 
Data offsets are useful for finding data using the Debugger. 
Code offsets are useful for setting break points with the 
Debugger. 



RUNNING PROGRAMS 



To run a program, either one that you have compiled or one 
someone else compiled, you just double— click its icon. Executing 
a program in this manner causes the disk it is on to become the 
default disk. 



Once you have become familiar with creating and running 
programs as described here, you should also explore the faster 
method offered by the Executive utility which is discussed in 
USING EXECUTIVE. 
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Pressing the interrupt button on the programmer's switch will 
cause the currently executing UCSD Pascal program to be 
interrupted. The button to the rear of the programmer's switch 
is the interrupt button. The button to the front of the 
programmer's switch is the reset button. Pressing the reset 
button will cause the Macintosh to be restarted. Obviously, if 
you are in the middle of a hard to reproduce situation, you don't 
want to accidently press the wrong button. 

When a program is interrupted, a standard Runtime Error dialog 
box will appear on the screen as described later on in the 
Runtime Errors section. Refer to that section for instructions on 
the options available when a Prograxn interrupted by user 
runtime error occurs. 

NOTE? The Runtime Support Library disables the interrupt 
button while it is starting up a program. Also, if you have one of 
Apple Computer's MacsBug debuggers installed, pressing the 
interrupt button while running a UCSD Pascal program will 
cause you to enter MacsBug. If you are running UCSD Pascal 
programs under the MacWorks software on a Lisa, there is no 
way to interrupt a program and receive the standard Runtime 
Error dialog box. 

You may need to do some more steps before a program you just 
compiled is ready to run. You may need to run the Set Options 
utility to change the default runtime environment for your 
program; you may also need to run RMaker to install some 
additional resources. 

The p— code produced by the UCSD Pascal compiler resides 
within the data fork of the output file. The resource fork of the 
file usually contains a standard set of resources that are used to 
start up (bootstrap) the p— code file. The standard resources are 
explained in detail in the section Standard Resources. 

The important thing you need to know about the standard 
resources is that some of them define the runtime environment a 
program starts up in. The effects of the settings of these 
standard resources are explained in the next three sections. 
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Required Files 

In order to run a program that was compiled with the UCSD 
Pascal compiler, two Pascal Runtime Files must be available to 
the program. One of the files is named Pascal Runtime and the 
other is named p— Machine. The p— Machine file is the 
p— Machine emulator program, which allows p— code to run on 
the Macintosh. The Pascal Runtime file is a group of Pascal and 
assembly language routines that support running UCSD Pascal 
on the Macintosh. The Pascal Runtime file is also called the 
Runtime Support Library. Usually, these files are found in the 
folder called Pascal Folder. As it is supplied to you, the Pascal 
Folder is located on the UCSD Pascal 1 disk. 

JIL JIL 

Pascal Runtime p-Maohine 

Figure 2—2. Pascal Runtime and p— Machine Icons. 

The resource fork of every UCSD Pascal program contains 
references which define the location and names of these files. 
These references consist of file names which adhere to the 
Macintosh file naming conventions. These conventions are 
described in File Naming Conventions later in this chapter. 
Should the Pascal Runtime Files be on the default disk, you can 
omit the volume name. Note that the two files do not need to be 
on the same disk. The p— Machine file is read only when your 
program is started and not used thereafter. This means that you 
can keep it on a separate disk which can be removed from the 
Macintosh after the program starts. 

Two versions of the Runtime Support Library were shipped to 
yoUo The first, named Pascal Runtime, is on the UCSD Pascal 
1 disk. It contains the necessary runtime support for executing 
UCSD Pascal applications. The other, named Debug Runtime, is 
on the UCSD Pascal 2 disk. It provides the same runtime 
services as Pascal Runtime and in addition, provides the 
Debugger and the Performance Monitor tools. The usage of these 
additional tools is described in the DEBUGGER chapter. 
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Empty Program, in its original form, as supplied to you on the 
UCSD Pascal 1 disk, specifies no volume name in the references 
to the Pascal Runtime Files. Hence, the resources in Empty 
Program assume that the required files are located on the default 
disk. Furthermore, the names of these files are assumed to be 
Pascal Runtime and p~Machine. 

Any program you compile that uses Empty Program as its source 
for resources will inherit these references to the required Pascal 
Runtime Files. Should this configuration (i.e. the nam-es of the 
files or their locations) not suit your requirements, you can use 
Set Options to change the file names and locations in each 
program you compile. Alternatively, Set Options can be used to 
change the names and locations specified in Empty Program. 

If one or the other of these Pascal Runtime Files is not available 
to your program, an error message describing the problem will be 
displayed when you attempt to start the program. 

Startup Options 

The settings of five Startup options are contained within a 
program's standard resources that specify the the runtime 
environment in which your program executes. These option 
settings are obtained by the Compiler from the resource file you 
specify when a program is compiled. Each option is described 
below, along with the default setting specified in Empty 
Program^ 

® Create Default Window* The default value of this option is 
enabled. If this option is enabled, a standard program 
window is opened by the bootstrap. The title of the window 
is the value of the version number string, if it is nonempty. 
Otherwise, the title is the file name of the program. (The 
version number string is another type of resource. See 
Standard Resources for instructions on defining a non— empty 
version number string.) If this option is disabled, no default 
window is opened. To see how this affects which ROM 
initialization routines are done by the bootstrap, see 
Initialization in the MACINTOSH INTERFACE chapter. 
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• Create .DBGTERM Device- The default value of this 
option is disabled. If this option is enabled, the .DBGTERM 
device is available to the program. See Special Devices for 
details about the .DBGTERM device. 

• Startup in Debugger. The default value of this option is 
disabled. If this option is enabled, the bootstrap calls the 
Debugger before the program starts. See the DEBUGGER 
chapter for instructions on using the Debugger. The 
Debugger interacts either by using the Macintosh screen and 
keyboard through the .DBGTERM device, or by using an 
external terminal, based on the setting of the Debug to 
Modem Port option. The Startup in Debugger option must be 
enabled if you intend to use the Debugger at all. 

• Enable Performance Monitor- The default value of this 
option is disabled. If this option is enabled, the Performance 
Monitor is enabled for the duration of your program. See the 
DEBUGGER chapter for information on using the 
Performance Monitor. The Performance Monitor writes 
information about the faults that occur during the execution 
of a UCSD Pascal program. This information is written 
either to the .DBGTERM device or to an external terminal 
based on the setting of the Debug to Modem Port option. See 
the MEMORY MANAGEMENT chapter for an explanation of 
the various kinds of faults. 

• Debug to Modem Port. The default value of this option is 
disabled. This option has no meaning unless either the 
Startup in Debugger option or the Enable Performance 
Monitor option is enabled. If this option is enabled, the 
Debugger interacts using an external terminal connected to 
the modem port of the Macintosh. The modem port is the 
one with the telephone icon, and corresponds to the channel 
used for the serial devices .AIN and .AOUT. 

In addition to using Set Options to change the option values 
assigned to your program by the Compiler, you may also override 
them by specifying the type which define them when using 
RMaker, The implementation of the Runtime Options as 
resources is discussed in Standard Resources. 
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As with the required files, the default settings are obtained by the 
Compiler from Empty Program. Should modifying your 
program with Set Options after compilation become cumbersome, 
you can use Set Options on Empty Program to change the 
default settings. This way, every time you compile, the compiler 
will automatically give you the file locations and option settings 
that you prefer. 

Library Files 

All of the units that a program references with the uses 
statement must be available to the program when it is executed. 
This can be accomplished three ways: 

• Each unit can be moved into the same code file as the 
program. The Librarian utility, described in the LIBRARIAN 
chapter, does this. 

• The units may be combined into a single library code file 
using the Librarian. If this is done, you can then use Set 
Options to add the name of your library code file to your 
program's Library Files list. The file Mac Library on UCSD 
Pascal 1 is an example of such a library of units that can be 
referenced by your program. 

« You can use Set Options to add the names of ail your code 
files containing individual units to your program^s Library 
Files list. This works provided that you don't have more 
than five code files that you want your program to reference 
in this mannerc 

As outlined above, a program's Library Files list is usually 
specified using Set Options. Set Options allows you to specify up 
to five code files. It is also possible to augment a program's 
Library Files list by adding the appropriate resources using 
RMaker, but using Set Options is easier and less error prone. 

The Library Files list is used by the Runtime Support Library 
when it needs to locate a referenced unit that it cannot find 
inside your program's code file. When it searches for a unit, the 
Runtime Support Library examines the code files in the order in 
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which you have listed them. If a library code file listed in your 
program's Library Files list cannot be found, the Runtime 
Support Library simply ignores that entry in the list and 
continues its search. 



The limit of five code files in the Library Files list imposed by Set 
Options is a practical limit rather than an absolute limit. The 
Macintosh Operating System limits the number of files that a 
program can have open simultaneously, and every code file that 
must be opened and examined by the Runtime Support Library 
increases the time required to start a program. 

Using Set Options 

Set Options is the utility program that you use to modify a 
UCSD Pascal program's Runtime Options. A program's Runtime 
Options specify the location of the Pascal Runtime Files, the 
Library Files list, and the settings of the Startup options. 

Set Options is executed just like any other application: just 
double— click its icon. 

Set Options initially presents you with a standard Macintosh file 
selection box. See Figure 2—3. Select the file you wish to modify 
by clicking its name in the selection box and then select the Open 
button. You can cause the files residing on the disk in the other 
drive to be shown by selecting the Drive button. Selecting the 
Eject button causes the disk in the indicated drive to be ejected; 
this allows you to insert another disk if you wish. To terminate 
Set Options, select the Cancel button. 
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Figure 2—3. Set Options File Selection. 

Once you have selected a file, a Macintosh dialog box is displayed 
that presents you with the settings of the current Runtime 
Options. See Figure 2—4. 



Runtime Options f< 
Q Set Bundle for FINDER 
PaseaJ Runtime Files 


jr file Empty Program 


[ Saue ) 


p-Mactiine j|p-Machine 


1 


' f raiijj^l ] 








Runtime | Pascal Runtime | | 


Library Files 


Startup 


Create Default Hiindcm 


D Create .DB6TERM Qemte 


Q Startup in Debugger 


n Enable Perf, Monitor 


n Debug to Modem Port 





Figure 2—4. Runtinae Options. 

Four option groups are available: 

® Pascal Runtime Files* These entries are the program's 
specification of the names and locations of the required files. 
Use the Mouse to move the cursor into the box for the name 
you wish to change^ Normal Macintosh editing rules and file 
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naming conventions apply. 

Startup. These check boxes are used to specify the settings of 
the Startup options. An empty box indicates that the option 
is disabled; an X through the box indicates that it is enabled. 
To change the setting, move the cursor into the box and click 
the mouse button. 

Library Files. These entries make up the program's Library 
Files list. As explained previously, the Library Files list can 
identify the name and location of up to five library files. 
Enter or change these boxes using the methods described for 
changing the Pascal Runtime Files entries. 

Set Bundle for Finder. This check box is used to specify 
the setting of the program's Finder "bundle bit." The usage 
of the bundle bit is explained in the Application Interface to 
the Finder section later in this chapter. You should not 
change this option unless you understand why you are doing 
so. Indiscriminate setting of the bundle bit can cause the 
Desktop to become "polluted" with conflicting icon and other 
resource definitions. This is a condition which is often 
evidenced by the Finder using the wrong icons to decorate 
files. 



To save the changes you have made, click the Save button, and 
Set Options will update the program with the Runtime Options 
shown on the screen and return you to the file selection box it 
presented to you earlier. Clicking the the Cancel button causes 
Set Options to return to the file selection box without updating 
the program, effectively discarding any changes you have made. 

Once you have been returned to the file selection box, you can 
select another program and change its options, or click the 
Cancel button to exit Set Options. 

NOTEs Set Options will not allow you to change the Runtime 
Options in the Set Options code file being used. To change the 
settings of the Runtime Options within Set Options, first use the 
Finder's Duplicate command to create a copy of Set Options. 
Then run the copy, and modify the original copy of Set Options. 
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Finally, exit back to the Finder and drag the copy of Set Options 
to the trash. 



Program Startup Errors 

If the Runtime Support Library has trouble starting your 
program, you will get a program startup error displayed within a 
dialog box on your screen. Actually, there are two catagories of 
program startup errors. The first catagory contains those 
startup errors which are detected and reported by the initial 
"bootstrap" program which is located in your program's standard 
resources. The second catagory contains the startup errors that 
can be generated by the Runtime Support Library during its 
construction of your program's execution environment. 

The startup errors generated by the bootstrap are: 

« Could not open p— Machine file. This error occurs if the 
file p— Machine could not be opened. The runtime 
environment description for the program's p— Machine file is 
wrong. Execute Set Options to correct the reference and then 
try the program again. 

• -Could not allocate memory for p— Machine. This error 

occurs if the bootstrap cannot allocate memory to read in the 
p— Machine file. This error should not occur; if it does, 
contact your technical support representative. 

® Error reading p— Machine fileo This error occurs if the 
bootstrap has trouble reading the p— Machine file. It is likely 
that your p— Machine file is damaged. Replace it, and try 
again. 

• Could not locate MSTR resource. This error occurs if 
your program is missing the standard MSTR resource. You 
must use RMaker in such a wa:y that all the standard 
program resources are in the resource fork of an application in 
addition to any new resources you define. 
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• Could not open program data fork. This error occurs if 
the bootstrap has trouble opening the p— code portion of your 
application program. Make sure you have not done any 
operation in building the application that might delete the 
p— code generated by the Compiler. 

• Could not open Runtime Support Library file. This 
error occurs if the bootstrap could not open the Pascal 
Runtime file. Make sure that a Runtime Support Library file 
is installed where the program's runtime environment 
description says it should be. The two runtime libraries are 
Pascal Runtime and Debug Runtime. 

• Could not allocate stack/heap. This error occurs if the 
bootstrap could not allocate a 64K byte area of memory for 
the Pascal Data Area. This error also should not occur and 
indicates a serious hardware or software failure. 

The program startup errors generated by the Runtime Support 
Library are: 

• Error reading segment dictionary. This error indicates 
that an I/O error occurred reading the segment dictionary 
within the program code file or a code file listed in the 
Library File list. 

• Error reading library. This error indicates that an I/O 
error occurred reading a library code file. 

• Required unit not found ( ). The unit whose name 
appears in the error message enclosed in parentheses is 
referenced by your program, but it cannot be found in the 
program code file or in any of the library code files listed in 
the Library File list. 

• Duplicate unit ( ). This error indicates that there is more 
than one instance of the indicated unit in the program, or the 
unit's name is the same as one of the Runtime Support 
Library's units. 
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Too many library code files referenced. This error 
indicates that the units used by your program are distributed 
into too many separate library code files. Use the Librarian 
utility to combine library code files. 

Too many system units referenced. This error should not 
occur. If it does, contact your technical support 
representative. 

No program in code file to execute. This error indicates 
that you have attempted to run a library code file that 
doesn't contain a program. 

Program or unit must be linked first. This error 
indicates that your program or one of the units that you are 
using needs to have one or more assembly language routines 
linked into it before it can be used. If this error occurs, it 
may be due to an improperly constructed Macintosh Interface 
unit, so you should contact your technical support 
representative. 

Obsolete code segment ( ). The indicated code segment 
was either not created properly or it was created by an 
incompatible version of the UCSD Pascal compiler. 

Insufi^cient memory to construct environment. There 
isnH enough memory for the Runtime Support Library to 
construct your program's environment. The best work 
around for this error is to combine separate library code files 
together into a fewer library code files. Another possible 
remedy is to eliminate any unneccesary entries in your 
program's Library File list. 

Program environment too complicated? run 
QUICKSTART first. This error indicates that the number 
of units used by your program and the complexity of their 
relationships is greater than can be handled directly by the 
Runtime Support Library. The QUICKSTART remedy 
suggested by the error message refers to a preprocessor 
program that you can use to prepare your program for 
execution. A version of this preprocessor utility is not 
currently available for the Macintosh environment. If you get 
this startup error, try using the Librarian utility to package 
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all of the units required by your program together with the 
program's code segments. If this doesn't eliminate the error, 
you may have to resort to merging the services provided by 
several small units into a single unit. 

• Error reading program code file. This error indicates an 
I/O error reading your program code file. 

• Error reading library code file. This error indicates an 
I/O error reading one of your library files. 

• Insufficient memory to allocate data segment. Your 
program or one of the units it references has a large amount 
of global variables, and the Runtime Support Library is 
unable to allocate the storage for them in the Pascal Data 
Area. The most likely cause of the trouble is a declaration of 
one or more large array variables. 

• Insufficient memory to load fixed position segment. A 

code segment containing one or more nonrelocatable assembly 
language routines cannot be loaded into the Pascal heap due 
to a lack of space in the Pascal Data Area. 

• Unknown environment construction error. This error 
indicates an internal error in the Runtime Support Library's 
environment construction process. If you get this error, 
contact your technical support representative. 

Runtime Errors 

When the p— Machine emulator and Runtime Support Library 
detect certain errors, the Runtime Support Library will generate 
an execution error. If the Debugger is enabled and currently in 
its active state, then the Debugger is entered, and an error 
message is printed. Otherwise, the system displays the execution 
error message within a dialog box on the screen, and the user is 
given a choice of how to procede. Here is a sample execution 
error dialog box: 
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jj Ualue range error 

Seg L0N6TEST P#3 0#44 



I OK I ( Continue | [ Debug ) 



Figure 2— 5o Execution Error, 

The first line is the error message. The second line gives the 
p— code coordinates of where the error happened. In this 
example, LONGTEST is the segment. The procedure number is 
3 and the offset within the procedure is 444. The coordinates can 
be checked against a compiled listing of the program to 
determine where in the program the error occurred. 

Depending on the error, there is either one or three continuation 
buttons. If it is a fatal error, only the OK button is shown. 

• OK button. Clicking this button will cause the program to 
terminate. 

• Continue button. Clicking this button will cause the 
program to continue execution. Only some execution errors 
may be continued from, so you cannot depend on continuing 
from arbitrary errors. 

• Debug button. Clicking this button will cause the Debugger 
to be invoked if it is enabled in the Runtime Optionso The 
Debugger is enabled when the Start in Debugger runtime 
option is truec If the Debugger is not enabled, this button 
does nothing. 

Here is a short explanation of each of the execution error 
messages: 

« Fatal runtijoae support error* This error indicates a 
corrupted Runtime Support Library file. 
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Value range error. This error occurs if (1) an array 
subscript is out of range, or (2) an assignment to a subrange 
variable is out of range. You can disable detection of this 
error by using the $R compiler option. 

No proc in segment table. This error should not occur on 
the Macintosh. 

Exit from uncalled proc. This error occurs when exit(A) is 
executed and A is not in the dynamic call chain. 

Stack overflow. This error occurs when there is no room in 
memory to expand the runtime stack by the desired amount. 

Integer overflow. This error occurs if (l) an integ;er2 
operation overflows, or (2) a conversion to integer or integer2 
is too large to fit in the destination type. 

Division by zero. This error occurs whenever a divide or 
mod operation is performed with a zero denominator. 

Invalid memory reference. This error indicates an attempt 
to access memory through a bad pointer or handle value. 

Program interrupted by user. This error occurs if the user 
presses the interrupt button on the programmer's switch and 
the Debugger is not enabled. 

Runtime support I/O error. This message indicates an 
I/O error was detected either during startup of the Runtime 
Support Library, or later attempting to read in a program 
segment. This is a fatal error. 

I/O Error. This error occurs if an I/O operation detects an 
error. You can disable I/O checking by using the $1 compiler 
option. 

Unimplemented instruction* This error occurs if the 
p— Machine attempts to execute an invalid p— code. If you get 
this execution error, then something has gone drastically 
wrong in your program. 
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• Floating point error. This error occurs when a floating 
point operation overflows the size of floating point numberSo 

• String overflow. This error occurs if (1) the source string is 
too large in string assignment^ or (2) conversion of a nuniber 
to a string overflows the size of the string. 

® Programmed halt. This error occurs upon execution of the 
halt intrinsic. 

• Illegal heap operation. This error indicates improperly 
paired mark and release operations^ or an illegal dispose 
operation. 

• Break point. This error occurs if a BPT p— code is executed 
and the debugger is not enabled. The BPT p— code is used by 
the debugger to implement break points. 

• Incomipatible real numiber size. This error cannot occur on 
the Macintosh unless you use the $R2 compiler directive, 
which is something you should not do. 

• Set too large. This error occurs if an attempt is made to 
create a set larger than the maximum allowed size of a set, A 
set is allowed to have 4080 members. 

« Segment too large. This error occurs if an attempt is made 
to load a segment that is over 32K bytes in size. 

• Heap expansion error. This error occurs if there is no room 
for the heap to expand c This is most likely to occur due to 
the presence of a nonrelocatable Macintosh heap block 
immediately above the Pascal heap in memory. The 
Compiler will likely terminate with this message if you try to 
compile a program having too many symbols. 

® Insufficient memory to load code segment. This error 
occurs if there is no more room in memory to load a required 
code segments Again^ the presence of locked or nonrelocatable 
Macintosh heap blocks can interfere with the acquisition of 
memory for code segmentSc 
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Refer to the P-MACHINE ARCHITECTURE chapter for 
additional information on execution errors. 



USING EXECUTIVE 

The Executive utility provides you with menu access to all of the 
programs that comprise The MacAdvantage: UCSD Pascal. 
That is, you can run the Editor, Compiler, RMaker, Set Options, 
and Librarian programs by selecting the appropriate entry in a 
pull— down menu. Other options on the Executive menu allows 
you to run any other program, or return to the Macintosh Finder 
program. 

The advantage of using the Executive to start programs instead 
of the Finder is that a transition from one program to another is 
considerably faster. Moving between programs using the 
Executive is faster, because the time consuming activities related 
to the saving and recreation of the desktop display (done by the 
Finder) are avoided. 

For example, the time it takes to go from the Compiler to the 
Editor should be reduced by approximately 50% if you use the 
Executive instead of the Finder to accomplish the transition. Of 
course, you may notice more or less time reduction depending on 
the number of disks you have inserted, the number of files on 
those disks, and the complexity of your current desktop 
arrangement. 

When a program started by the Executive terminates, the 
Executive is restarted. This means that once you have started 
the Executive, you effectively remain inside it until you use its 
Quit option to reactivate the Finder. 

The Executive isn't intended to be a complete substitute for the 
Finder. You will still need to use the Finder for a variety of 
tasks. Most notably, these tasks include: transferring files 
between disks, copying disks, maintaining the organization of the 
folders on your desktop, and running the Desk Accessories. 
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Note that it is possible to have your Macintosh start up in the 
Executive utility instead of the Finder if you wish. (See how to 
use the Finder "Set Startup" command in Macintosh, your user 
guide.) 

The operation of the Executive utility is described in the 
following sections. 

Starting The Executive 

As it is supplied to you, the Executive is located on the UCSD 
Pascal 1 disk. To start the Executive, double click its icon. 
Since the Executive is not a UCSD Pascal program, it can be run 
off of any disk without configuring it with Set Options. 

The Executive Menu Bar 

The Executive utility's menu bar consists of the following menus: 

Set. The Set menu allows you to set the locations of the 
programs that comprise The MacAdvantage: UCSD Pascal. 

Edit. The Edit menu will start the Editor program. 

Compile* The Compile menu will start either the Compiler or 
RMaker (the resource compiler). 

Utilities. The Utilities menu will start either Librarian or Set 
Options. 

Run« The run menu puts up a standard file selection box. To 
run a program, select the program file name and select the Open 
button. (Or simply double— click the file name.) 

Quit.The Quit menu allows you to exit back to the Macintosh 
FINDER. 



2-26 1200a01i02B 



USING EXECUTIVE 



The Editor, Compiler, RMaker, Librarian, and Set Options can 
also be started by entering a command key sequence from the 
keyboard. This is done by holding down the command key and 
typing the appropriate letter. The command key sequences 
supported by the Executive are shown in its pull down menus. 

Setting Program Locations 

The Executive is preconfigured to know about the locations of the 
Compiler, RMaker, Set Options, Editor and Librarian programs 
as they are shipped on the UCSD Pascal 1 and UCSD Pascal 
2 disks. If you wish to execute these programs from other 
volumes (such as a hard disk) you must use the Set menu to 
change the location of these programs. 

In the Set menu, there is one menu item for each program. Select 
the item that corresponds to the program whose location you 
wish to change. After you select the item, a dialog box will 
appear that contains the current location setting for the program. 
Type in the new location of the program, or click the Cancel 
button to retain the previous location setting. When specifying 
the location of a program, you must specify both a volume name 
and a file name using the standard Macintosh file name 
conventions. After typing in the new location, select the Save 
button to make the change permanent. 

NOTE: If you are moving the Compiler, Librarian or Set 
Options programs to another volume don't forget to move the 
files in the Pascal Folder. You will also need to run the Set 
Options utility on these programs to change the location of the 
p— Machine and Pascal Runtime files. 

If you receive the error message 

Frogrmm XXX is no'fc on— I i ne 



when attempting to start a program using Executive, check that 
the location for the program is set correctly. 
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ACCESSING FILES 

Your UCSD Pascal program can access Macintosh files two ways. 
First, it can use the UCSD Pascal intrinsics described in The 
UCSD Pascal Handbook. Second, Inside Macintosh describes the 
interfaces to the Macintosh Operating Systeni File Manager. By 
using the UCSD Pascal interfaces to these ROM routines, your 
program can have full access to all the file handling capability of 
your Macintosh. 

Programs which use UCSD Pascal intrinsics to access files 
generally need to be aware of disk volume names or disk drive 
assignments. Their user interface has to be tailored accordingly. 
Two examples of programs like this are the Compiler and 
Librarian. Programs which use the Macintosh Standard File 
Package and File Management units generally don't need to 
worry about these details. Examples of this type of program are 
Editor, Set Options, and RMaker. 

Regardless of which method you choose to use, this section 
provides you with information to help interface your program to 
Macintosh files. 



File Naming Conventions 

File names can be specified using the conventions of the 
Macintosh Operating System. These file naming conventions are 
as follows. A file name consists of up to 255 characters. Any 
character except a colon (:) may be used in a file name. In 
particular, spaces are allowed in a file name. File names are not 
case—sensitive for the purpose of comparison. However, the 
original type case of the name is retained in the directory when a 
file is created. Here are some example file names: 

MYFILE 

A r«^h«ir long fil« namec 

My Ft \m 
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The first and the third file names in the example are distinct 
names, because of the presence of a space in one of them. 
Remember that all spaces are considered part of the file 
name even trailing spaces. 

NOTE: According to Inside Macintosh there is a practical limit 
of about 40 characters for a file name. 



A file name may be preceeded by an optional volume name, 
separated from the file name by a colon. A volume name may be 
up to 27 characters long, and may consist of any characters 
except a colon (:). Volume names follow the same case 
convention as file names. Here are some examples of file names 
preceeded by volume names: 

My Disk: My F I ie 
Mac Boot:PBOOT 



Any file name that is opened using the Pascal reset or rewrite 
calls may use some additional conventions supported only by the 
Pascal Runtime Package. These conventions are called Pascal 
I/O file naming conventions. 

A volume may be refered to by the drive number of the disk 
drive it is mounted in. A drive number is represented by a 
number sign (#) followed by a positive integer representing the 
drive number. #1 refers to the internal drive. #2 refers to the 
external drive. Higher numbers refer to other drives that your 
Macintosh knows about. Which numbers correspond to which 
drives is system— specific. 

WARNING: Drive numbers are used to open the named file on 
any disk in the specified drive. Should you be using multiple 
disks in the specified drive, the use of drive numbers is 
dangerous. A file will not be found or will be created on the 
wrong disk if the disk in the disk drive changes before the file is 
opened. ' 
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Here are some file names preceeded by drive numbers: 



#l!My Fi l« 
#2:RMaker 



You may also specify a device by name. The syntax of a device 
name is the same as for a volume name, except that a device 
name may not be followed by a colon or a file name. All device 
names begin with a period (.) character, by convention. Here is 
a list of the standard Macintosh device names: 

• .AIN is used to receive input from the modem port. 

• .AOUT is used to send output to the modem port. 

• .BIN is used to receive input from the printer port. 

• .BOUT is used to send output to the printer port. 

The Runtime Support Library also supports some nonstandard 
serial devices: 

® .CONSOLE refers to a terminal— like device that uses the 
keyboard and the current QuickDraw grafport on the 
Macintosh screen. 

• .SYSTERM refers to a device that is identical to characters 
are not echoed to the screen on input. 

• .DBGTERM refers to a terminal—like device that uses the 
keyboard and the bottom eight lines of the Macintosh screen. 

For more information on these devices, see Serial Devices. 
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File Types 

Disk files that are created by the Runtime Support Library are 
one of three types. Each type has its own icon that distinguishes 
the file type. It is possible to associate your own icons to these 
file types. See BUILDING AN APPLICATION. 

Using the facilities In the Error _ Handling unit, your program 
can exercise additional control over the file types and creator 
identifiers for the files it creates. See Execution Environment 
Control later in this chapter for more information. 

The file types and standard icons are as follows: 




Dais 



Temporary Text 

Figure 2—6. File Icons. 



text file. A text file results when a program creates a file of 
type text or file of char . 

data file. A data file results when any other type of file is 
created. 

temporary file. A temporary file results when a file has not 
been properly closed. A temporary file may not be opened 
using the Runtime Support Library. Currently, there is no 
utility program that will change a temporary file into a 
permanent file. 
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Pascal I/O Operation 

This section is a collection of notes on how the Pascal I/O 
operations work under the Macintosh. Most operations will 
produce the result you would expect, but there are some 
restrictions imposed by the Macintosh Operating System and by 
this implementation of Pascal that you should be aware of. 

• When you read certain types of text data from one of the 
special serial devices (.CONSOLE, .SYSTERM or 
.DBGTERM) you may use the < Backspace > key to correct 
typing errors. The data types that allow this are strings and 
the numeric data types. This handling of the < Backspace > 
key is independent of the general— purpose backspace 
character handling that is done by the special serial device 
driver, and works even if you are not using a fixed— pitch 
font. 

• The standard file input defaults to the .CONSOLE device, as 
does the standard file output . This means that read , readln, 
write , and writeln intrinsics that do not specify a file name 
will cause output to go to the current window and input to 
come from the keyboard. If the program doesnH have a 
current window, output is written to the QuickDraw grafport 
which defines the screen. A program which has the Create 
Default Window runtime option enabled gets a current 
window which satisfies the requirements for these intrinsics. 

• Tabs are expanded, as you would expect, on the special serial 
devices. That is, writing a tab character to one of the special 
serial devices causes the QuickDraw character drawing pen to 
be positioned at the start of next column to the right of its 
current position. Each column has a width of eight space 
characters. (This means that font and character size used 
determines the actual width of the columns on the screen.) 
Note that this same style of tab expansion may not occur 
when you write text on an Imagewriter printer unless you 
have set the tab stops on the printer. 
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A disk file that is opened with reset or rewrite is opened with 
both read and write permission. Therefore, disk files may not 
be opened more than once simultaneously within an 
application. An important consequence of this is that none of 
the files that the system opens automatically may be opened 
by a program. 

Devices, on the other hand, are opened with whatever 
permissions are available. Thus, one device (like .BOUT) may 
be opened more than once simultaneously within an 
application. There are however some anomalies regarding the 
standard Macintosh devices .AIN and .BIN which you need to 
be aware of. You must open the corresponding output device 
first, before you open one of these input devices, otherwise the 
system will crash. For example, if you want to open a file to 
.AIN, first open it to .AOUT, close it, then re— open it to 
.AIN. 

Disk files are stored as normal Macintosh files, and share all 
the properties of Macintosh files. For instance, disk files may 
be located in multiple extents on a disk. Thus, a file may 
expand until the disk is completely full without the user 
worrying about the placement of files on the disk. 

The Runtime Support Library returns an I/O result code for 
each I/O operation. The codes that are returned correspond 
to the I/O result codes used by the Macintosh Operating 
System. Where possible, I/O result codes manufactured by 
the Runtime Support Library will be one of the codes known 
to the Macintosh Operating System. However, a few new 
codes have been defined that are unique to the Runtime 
Support Library. 

When the Runtime Support Library is reading a character 
from one of the special serial devices, this condition is made 
known to the user through the display of a block cursor at the 
current pen position on the screen. 



1200301:026 2-33 



GENERAL OPERATIONS 



Chapter 2 



Limits On Open Files 

A UCSD Pascal program can have a maximum of eight files open 
at one time on the Macintosh. The Macintosh Operating System 
imposes a limit of 12 open files, but the Pascal Runtime Library 
keeps four files open while a normal program is running. These 
are the files that the system keeps open: 

1. Pascal Runtime (data fork) 

2. Pascal Runtime (resource fork) 

3. Application (data fork) 

4. Application (resource fork) 

In addition, each library code file that your program uses will be 
open at runtime. Therefore, if you plan to have many files open 
at once in your application, you will need to restrict your use of 
library code files. 

Special Keyboard Sequences 

The Macintosh Operating System takes special actions on certain 
keyboard inputs. These actions take the form of special key 
sequences that the Macintosh Operating System recognizes. Your 
application can disable these actions by using GetOSEvent to 
retrieve keyboard input rather than GetNextEvent or Pascal I/O. 
These key sequences are as follows: 

• <coninciand— shift— 1> ejects the disk in the internal 
drive. 



<I command - 

drive. 



-shift — 2 > ejects the disk in the external 



<command— shift— 3> writes a copy of the current 
window to a disk file that is suitable for input to MacPaint. 
If <Caps Lock> is also down, then it writes the whole screen 
contents. The file is written to the default disk. 
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• <coniinand— shift— 4> writes a copy of the current 
window to the printer. If <Caps Lock> is down, then it 
writes the contents of the entire screen image (print screen). 

Serial Devices 

This section describes the special serial devices that are supported 
by the Runtime Support Library. The Macintosh Operating 
System does not treat the screen and keyboard as files at all, so 
these are really just virtual devices to give the screen and 
keyboard a file interface. 

The Runtime Support Library uses QuickDraw to draw 
characters on these virtual devices. Therefore, QuickDraw 
terminology (eg. font, pen location) is used to describe the 
output characteristics of these devices. 

• .CONSOLE refers to a terminal— like device that uses the 
Macintosh screen and keyboard. A write to .CONSOLE 
writes characters to the current window in the currently 
selected font. If the Create Default Window runtime option is 
enabled, this default window is the current window when a 
program starts. The default font is Geneva— 12. A read from 
.CONSOLE reads characters from the keyboard. These 
characters are echoed on the screen in the current window. 

• .SYSTERM refers to a device that is identical to 
.CONSOLE, except that characters read from the keyboard 
are not echoed on the screen. 

• .DBGTERM refers to a terminal— like device that uses the 
keyboard and the bottom eight lines of the Macintosh screen. 
Characters written to .DBGTERM will appear in Monaco— 9 
font. The .DBGTERM device does not write to the screen 
within a window. Instead, it destructively modifies the bits at 
that position of the screen. Because the characters may be 
superimposed over other information on the screen, 
sDBGTERM draws its characters with some surrounding 
white space. This device is used by the Debugger when the 
External Terminal Debugging runtime option is disabled. It 
is also useful for programs that want to display their own 
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debugging information without interfering with the current 
window. Like .SYSTERM, .DBGTERM does not echo 
characters on input. When the .DBGTERM device is 
available, the size of the default window created for the 
.CONSOLE and .SYSTERM devices is made smaller so that 
.DBGTERM output is not intermingled with .CONSOLE 
output. Of course, if you are not using the default window 
option, it depends on the current grafport as to whether or 
not .CONSOLE output will ever conflict with .DBGTERM 
output. 

The three serial devices mentioned have: a number of 
characteristics in common. Ail of them display a block cursor 
when the program reads from the device. This block cursor is an 
indication to the user that keyboard input is expected. 

The following special characters are handled by the special serial 



carriage return* Writing a carriage return character (OD 
hex) causes the current pen position to be moved to the 
beginning of the next line. The vertical distance the pen is 
moved is based on the height of the current fonto The pen is 
amoved horizontally to coordinate 0. If the new pen location is 
below the bottom of the grafport, the grafport is scrolled by 
one line to accomodate the new line of characters. 

line feed. Writing a line feed character (OA hex) performs no 
action. Line feed is ignored on output. 

tab- Writing a tab character (09 hex) aligns the pen location 
at the next tab stop. The tab stops have a width of eight 
spaces in the current font, and are spaced evenly across the 
grafport starting at horizontal coordinate 0. If the pen is 
currently at a tab stop, writing a tab advances the pen to the 
next tab stop. 

backspace. Writing a backspace character (08 hex) erases a 
character the width of a space (in the current font) 
immediately before the current pen location, and moves the 
pen location to the left by the width of a space. Backspace is 
most useful if you are using a fixed— pitch font like 
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Monaco— 9. 

• bell. Writing a bell character (07 hex) causes an audible beep 
to be generated. The volume of the beep can be controlled via 
the Control Panel desktop accessory. 

Disk Swapping 

All of the disks having icons on the desktop prior to the start of a 
program are accessible to the program. This means that files 
may be opened or created on these disks, even if the disk is no 
longer in the disk drive. Additionally, any disks inserted in a 
disk drive while a program is executing are also accessible to the 
program, provided that the disk is inserted prior to its being 
accessed to open or create a file. Once a file has been opened, the 
Macintosh Operating System will request that the disk it is on be 
inserted into a disk drive whenever the file is referenced. This 
capability increases the amount of disk storage available to 
Macintosh programs, but at a severe cost in access speed. 

If your application is going to depend on using multiple disks per 
drive, you should be aware of several factors: 

• Swapping disks places additional burdens on the amount of 
stack slop required by your program. This is explained 
further in How to Set Stack Slop in the MACINTOSH 
INTERFACE chapter. 

• Programs which use UCSD Pascal intrinsics to access files can 
use either Macintosh or Pascal I/O file naming conventions in 
the reset or rewrite statements. However, use of explicit drive 
numbers in file names can be dangerous because there is no 
assurance that the correct disk will be in the disk drive when 
the file is actually opened. 

• Programs which use the high— level Macintosh File Manager 
unit can use Macintosh file naming conventions to open their 
files. 
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When they are requesting the names of the files that they are to 
operate on, the Compiler and the Librarian accept file names 
which contain explicit drive numbers. However, care should be 
taken when using the explicit drive number notation with these 
programs when using multiple disks in a drive. 



BUILDING AN APPLICATION 

This section discusses more advanced topics regarding putting 
together an application using UCSD Pascal on the Macintosh. 

Putting it All Together 

This section describes the use of segments, units, and libriaries. 
It presents some useful strategies for designing a large program. 

Units and segments are used to divide large programs into 
independent modules. On the Macintosh, the main bottlenecks in 
developing large programs are: 

• A large number of declarations that consume space while a 
program is compiling. 

• Large pieces of code that use up memory space while the 
program is executing. 

The use of units solves the first problem hjt (1) allowing 
separate compilation; and (2) minimizing the number of 
identifiers needed to communicate between separate tasks. The 
use of segments alleviates the second problem by allowing the 
code for a large program to be partitioned into manageable 
chunks in such a way that only portions of the program need to 
be in main memory at any given time, and any unused portions 
reside on disk. 

You can write a program with runtime memory management and 
separate compilations already planned, or you can write as a 
whole and then break it into segments and units. The latter 
approach is feasible when you're unsure about having to use 
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segments or quite sure that they will be used only rarely. The 
former approach is preferred ajid is easier to accomplish. 

The following steps outline a typical procedure for constructing a 
relatively large application program: 

1. Design the program (user and machine interfaces). 

2. Determine needed additions to the library of units, both 
general and applied tools. 

3. Write and debug units and add them to libraries. 
4e Code and debug the program. 

5, Tune the program for better performance. 

During the design of a program, try to use existing procedures to 
decrease coding time and increase reliability. You can accomplish 
this strategy by using units. 

To determine segmentation, consider the expected execution 
sequence and try to group routines inside segments so that the 
segment routines are called as infrequently as possible. 

While designing the program, consider the logical (functional) 
grouping of procedures into units. Besides making the 
compilation of a large program possible, this can help the 
program's conceptual design and make testing easier. 

Units may contain segment routines within them. You should be 
aware that a unit occupies a segment of its own; except, possibly, 
for any segment routines it may contain. The unit's segment, 
like other code segments, remains disk resident except when its 
routines are being called. 

You can put into the interface section the headings for procedures 
and functions that are needed by other units. Then you can hide 
the implementation section from the users of the unit. 
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Steps 2 and 3 of the typical construction procedure are aimed at 
capturing some of the new routines in a form that allows them to 
be used in future programs. At this point, you should review, 
and perhaps modify, the design to identify those routines that 
may be useful in the future. In addition, useful routines might be 
made more general and put into libraries. 

Write and test the Library routines before moving on to writing 
the rest of the program. This adds more generally useful' 
procedures to the library. 

The interface part of a unit should be completed before the 
implementation part, especially if several programmers are 
working on the same project. 

Tuning a program usually involves performance tuning. Since 
segments offer greater memory space at reduced speed, 
performance is improved by turning routines into segment 
routines or turning segment routines back into normal routines. 
Either route is feasible. Pay attention to the rules for declaring 
segments. 

Segmenting a Program 

An entire program need not to be in main memory at runtime. 
Most programs can be described iti terms of a working set of code 
that is required over a given time periods For most (if not all) of 
a program's execution time, the working set is a subset of the 
entire program, sometimes a very small subseto Portions of a 
program that are not part of the working set can reside on disk, 
thus freeing main memory for other uses. 

When your program executes, it is read into main memory. 
When the code has finished running, or the space it occupies is 
needed for some action having higher priority, the space it 
occupies may be overwritten with new code. Code is swapped 
into main memory a segment at a time. 
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In its simplest form, a code segment includes a main program and 
all of its routines. A routine may occupy a segment of its. own; 
this is accomplished by declaring it to be a segment routine. 
Segment routines may be swapped independently of the main 
program; declaring a routine to be a segment is useful in 
managing main memory. 

Routines that are not part of a program's main working set are 
prime candidates for occupying their own segment. Such routines 
include initialization and wrap— up procedures and routines that 
are used only once or only rarely while a program is executing. 
Reading a procedure in from disk before it is executed takes time. 
Therefore, the way that you divide up a program is important. 

The UCSD Pascal Handbook describes the syntax for creating 
separate segments in a program. 

Separate Compilation 

Separate compilation is a technique in which individual parts of a 
program are compiled separately and subsequently executed as a 
coordinated whole. 

Many programs are too large to compile within the memory 
confines of the Macintosh. Such programs might comfortably 
run though, especially if they are segmented properly. Compiling 
small pieces of a program separately can overcome this memory 
problem. 

Separate compilation also allows small portions of a program to 
be changed without necessarily affecting the rest of the code. 
This saves time and is less error prone. Libraries of routines may 
be built up and used in developing other programs. This 
capability is important if a large program is being developed and 
is invaluable if the project involves several programmers. 

In UCSD Pascal, separate compilation is achieved by the unit 
construct — a unit being a group of routines and data structures. 
The contents of a unit usually relate to some common 
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application, such as screen control or data file handling. A 
program or another unit may use the routines and data 
structures of a unit by simply naming it in a uses declaration. In 
addition to being a separately compiled module, a unit is also a 
code segment; it can be swapped, as a whole, into and out of 
memory. 

A unit consists of two main parts: the interface section, where 
constant, type, variable, procedure, process, and function 
declarations, which are "public" (available to any client module) 
are found; and the implementation section, where private 
declarations are found. 

The UCSD Pascal Handbook describes the syntax for creating and 
using units. 

Libraries 

This section describes where you may place the code files that 
contain units so those units are available at compile time or 
runtime. At compile time, only the interface section of a called 
unit is needed c At runtime, only the implementation section is 
needed. (It is allowed, however, to have both the implementation 
and interface sections available at both runtime and compile 
time,) If you wish, a unit can be compiled with the complete 
interface section, but with empty routines defined in the 
mplementation section. This allows clients which require the 
nterface section to be compiled before the unit has been fully 
mplemented. Also, for runtime purposes, the interface section 
can be stripped out of a unit's code file using the Librarian., This 
leaves only the implementation section and saves disk space at 
runtime. 

A program or a unit which uses another unit is called a client of 
that unit. An anology can be made with someone who offers a 
service (the unit) and someone else who is a client of that service 
(the using program or unit). At runtime, the Runtime Support 
Library searches for a unit in the following places: 
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• The Runtime Support Library 

• The client code file 

• The files listed in the client's Library Files list. 

The Runtime Support Library units reside in either Pascal 
Runtime or Debug Runtime. DO NOT place units that you write 
there. 

To place a unit directly into a program's code file, use the 
Librarian. After the unit's code and the program's code are 
unified, the unit will be available when the program is executed. 
Refer to the LIBRARIAN chapter for more information on 
placing units into a client's code file. 

A library can be a code file which is a collection of compiled units 
(usually stitched together with the Librarian) or it can contain 
just a simple unit within a code file created by the Compiler 
when you compile that unit. The Library Files section in this 
chapter describes how to modify the client's runtime environment- 
description to reference libraries. 

At compile time, as opposed to runtime, the code for a unit 
resides in a code file specified in the text you are compiling. The 
UCSD Pascal Handbook describes how clients can use the interface 
section of units at compile time. 

Standard Resources 

This section describes the RMaker input used to create the 
generic resources for Empty Program. This is the file used by the 
Compiler on the Macintosh to install resources into the program 
code files that it creates. Various parts of the Runtime Support 
Library expect to access these resources using the resource type 
identifiers and numbers defined here. You should be careful 
when defining resources for your program that you do not 
accidently redefine the resources described here. 
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The first input specifies the RMaker output file name. Following 
that is the file type and signature: 

UCSD Pa«c« I lsEmp"ty Program 
APPLPROG 



The next resource entry is the applications's signature and 
version nuniber string. The generic application signature is 
PROG; Generic version data is the empty string. (Used as the 
title for the default screen I/O window.) If you want the title of 
the default screen I/O window to be other than the name of the 
program's code file, change the third line of the following 
example from the empty string to whatever string of characters 
you want to use. See the RMAKER chapter for instructions on 
how to append new resources onto an existing resource fork. 

TYPE PPOG a STR 
,0 (32) 



The required Pascal Runtime Files location names are next» First 
is the file name of file containing the Runtime Support Library. 
Next is the file name of file containing the p— Machine. 

TYPE SYSF « STR 

,0 (32) 
Pascal Runtime 

,1 (32) 
p~Mach 1 nm 



Next is the number of Macintosh Memory Manager master 
pointer blocks to preallocate before the Pascal Heap Block is 
allocated as a nonrelocatable heap block. (Master pointer blocks 
are nonrelocatable, and must never be allowed to reside above the 
runtime support's heap block. If any nonrelocatable blocks are 
allocated above the Pascal Heap Block, it may not be possible for 
the Runtime Support Library to extend the Pascal Heap Block, 
even when sufficient free memory space is available. See the 
MEMORY MANAGEMENT chapter for more details on the 
Pascal Heap Block.) 
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Each allocated master pointer block has room for 64 master 
pointers. The Macintosh Finder starts any application with a 
single master pointer block (i.e. 64 master pointers). 

TYPE MSTR = GNRL 
,0 (32) 
.H 
0001 



The Startup option settings are defined next. Options are 
specified by individual characters in the string resource. A plus 
(H-) enables an option, a minus (~) disables it. The position of 
the character in the string determines which option is set. The 
following table lists the Startup options and their default settings 
in Empty Program: 



Op'tion Posl'tion Oefaul't 

Croat© Default Window 1 -♦• 

Create .DBQTERM Device 2 

Startup in Debugger 3 - 

Enable Performance Monitor 4 - 

Debug to Modem Port 6 - 



The following resource specifies the default settings: 



TYPE OPTN = STR 
,0 (32) 



The following strings define the text used in the bootstrap's error 
messages: 

TYPE PRME « STR 

,0 (32) 
Could not open p->mach 1 ne file 

,1 (32) 
Could not a I locate memory for p-mach i ne 

,2 (32) 
Error reading p»mach i ne file 

,3 (32) 
Could not locate MSTR resource 

,4 (32) 
Could not open program data fork 

,5 (32) ^ ... 

Could not open Runtime Support Library file 

,6 (32) 
Could not a I locate atack/heap 



1200301:02B 2-45 



GENERAL OPERATIONS ' Chapter 2 



The following resource definitions are used for the bootstrap's 
ALERT Dialog boxes: 

TYPE DITL 

,2S6 (32) 
2 

Bt/nl-tem Enabled 
90 267 110 337 
OK 

Stat>Tox"t Disabled 

10 60 70 350 

*0 

TYPE ALRT 

,2S6 (32) 
60 81 180 431 
256 
S555 



One additional resource type is needed to complete the definition 
of Empty Program. It causes the assembly language bootstrap 
program to be included in the resource fork. This is the native 
Macintosh application which begins executing when you open the 
icon of a UCSD Pascal program^ This bootstrap reads in the 
p—Machine. The p—Machine builds a runtime environment and 
reads in the Runtime Support Library. The Runtime Support 
Library stitches the pieces of your program together and begins 
executing it. The actual resource definition is not included here 
because it does not follow the conventions and syntax of the 
Macintosh RMaker. 

Execution Environment Control 

The Error ^Handling unit may be used by a UCSD Pascal 
program to control its execution environment, or perform certain 
special functions. This unit may be found in the file 
ErrorhandLCODE on the UCSD Pascal 2 disk. The entry 
points to the Error _^ Handling unit allow a program to: 

1. Override the standard handling of runtime errors performed 
by the Runtime Support Library by installing a custom error 
handling routine. Such an error handler routine can attempt 
some corrective action for certain errors, or simply report 
runtime errors in a different manner. 
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2. Force entry into the Debugger. 

3. Cancel a process. 

4. Establish a procedure as the "interaction procedure" which is 
activated by the Debugger's "I" command. 

5. Turn the Performance Monitor output ON and OFF. 

6. Adjust the "stack slop" for the main task. 

7. Establish a specific Macintosh file type identifier and 
signature for an open file variable. 

The following is the interface to the Error _ Handling unit: 



unit er ror^hand I I ng ; 
i nter f ace 

type eh^results • ( cant_handle, re_i n i t i a I i ze , continue ); 
eh_info •■ record 

jused Internally by operating system^ 
a:tlnteger; b:tinteger; c:lnteger; 
d:tinteger; e:tlnteger; f:tinteger; 
end; 

eh.file.ptr » tinteger; ^Actually o pointer to o 

file vor loble, I 

eh_res_type - packed array[l..4] of char; 

\A Macintosh Resource Type 
I dent I f I er . ^ 

|User error handling facilities. | 
procedure setter r^hond I er ( 

vor info:eh_lnfo; 

function er r_hand I er ( er r , lor: Integer): 
procedure c I f_er r^hond I er (vor Info: eh„lnfo); 
procedure er r^to.message(er r : integer; vor message: string^; 
procedure I or_ to_message( i or : integer; vor message: string); 
procedure debugger; 

fProcess cont ro I . | 

procedure conce I ( task I d: processid); 

iPerformonce monitor control. | 

procedure set_pm_, i nteroc t i on( procedure pm^ I n teroc t i ve) ; 

procedure pm^stor t_s top( star t : boolean); 

iStock space checking control. J 
procedure se t_stack„s I op( s I op : Integer); 
function get_stack_s I op: integer; 

|Flle type and signature control. J 

procedure set„f I le_type( f : eh.flle.ptr; ftype: eh„res_type) ; 
procedure set_f M e_s ignature( f : eh^file.ptr; ~ 

signature: eh„res^type) ; 
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The following paragraphs discuss each of the entry points to the 
Error _ Handling unit: 

1. The routine SetErrHandler establishes its parameter 
ERR _ HANDLER as an error— handling function. After such 
an error— handling function is established, the UCSD Pascal 
Runtime Support Library will call it whenever a non— fatal 
runtime error occurs« The runtime error number and the 
current ioresult values are passed to an error— handling 
function in its ERR and lOR parameters. 

An error— handling function returns one of these possible 
results: 

Reinitialize. Causes immediate termination of the program. 

Continue* Asks the UCSD Pascal Runtime Support Library 
to attempt to continue execution. 

CantHandle. Indicates that the particular runtime error 
cannot be handled by this error— handling functiony and that 
it should be reported to any previously established 
error— handling function (if any). If none of the established 
error— handling functions can handle the error, the standard 
UCSD Pascal Runtime Support Library error— handling 
mechanism is used to report the error. 

The INFO parameter passed to SetErrHandler is an 
information record which is used internally by the UCSD 
Pascal Runtime Support Libraryo Each distinct 

error— handling function you establish must have a separate 
information records To cancel the establishment of an 
error— handling function, you should call ClrErrHandler 
passing the appropriate information record. 

The following is a simple example of how you might create 
your own error— handling function and use it in a program: 



PROORAM r»o^ tn't«rf*up-ti©n«j 

USES <SU UCSD Pmmcml 2sErrorh«nrf I .CODE> 
Er ror^Hood ! 1 ng j 

VAR infos «h^irifo| 
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FUNCTION my^eppor^poutl ne( 

errnun»7 ioP«l"b: 1 n*begep) : eh pesul'bsi 
BEGIN 

IF •ppnum = 8 <U»op Bpeak> THEN 

my oppop pou-bine i« cont»inuo 
ELSE" 

fny__^oppop_pout. I ne := cant-^^hand I ©; 
END; "{my^eppop^pou-bi n«> " 

BEGIN 
•{Assume ppogpam is en'beping some cp'i'tlcai 

opepa-bion thab shouldn't be i n-beppup'ted . )• 
Se"bEppHand I ep ( i nf o , my^^eppop^pout**! ne) ; 

•(Do bhe cp'i'tlcai opepation}- 

^Restope Usep Bpeak facility.^ 
C I pEppHand lep ( i nf o) ; 

•TResume nopmal ppocess i ng . }> 
END o -{no^ I nteppupti ons> 



In the example, an error— handling function is used to prevent 
the user from interrupting the program during a certain 
critical section of the program. All runtime errors except 
User Break will be handled in the usual fashion by the UCSD 
Pascal Runtime Support Library. 

You can establish an error—handling function anywhere in 
your program. However, be sure that you call ClrErrHandler 
prior to leaving the context in which your function is 
declared. 

Error—handling functions may be nested, and the most 
recently established function is called first. A unique 
information record variable must be used each time 
SetErrHandler is called. 

WARNING: The exit intrinsic cannot be used to exit a 
function that is established as an Error— handling function. 

ErrToMessage and lorToMessage are routines that you can 
call to obtain a textual message describing a particular 
runtime error or ioresult value. Both routines return the text 
of the message in the stringy variable you pass as the 
MESSAGE parameter. The possible messages returned by 
these routines are listed in Appendix B. 
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To enter the UCSD Pascal Debugger from an error— handling 
function (or from anywhere else in a UCSD Pascal program)/ 
you can call the routine Debugger. This facility is intended 
for use only during the development and checkout of a 
program. If you call the Debugger without having the 
appropriate runtime options set (those which are required in 
order to use the Debugger), your program will fail 
unpredictablyo 

The Cancel entry point cancels a process that was previously 
started via the start intrinsic. You pass the processid value 
returned by start to designate the process to be cancelled. 
Cancel cancels the process immediately, interrupting 
whatever was happening, and releases the space used for its 
stack. The canceled process is effectively forced to do an 
*^ exit ( process )" statement, since the routine activations on 
the process's stack are "unwound" and any exit code for those 
routines is executed. 

SetPmlnteraction is used to establish a procedure within your 
program as the Debugger's "interaction procedure". The 
interaction procedure is called when the Debugger "I" 
command is typed from the Macintosh keyboard. (In order to 
use the interaction procedure mechanism, the Performance 
Monitor must be activated by setting the appropriate options 
with Set Options.) One typical kind of interaction procedure 
is one which produces a formatted display of the contents of 
some variables or a complicated data structure. Using the 
interaction procedure facility, you can make the debugging of 
a large and complex program much easier, since you are 
effectively customizing the Debugger to suit the needs of your 
program . 

PmStartStop is used to control the built— in Performance 
Monitor^ The Boolean value you pass as the parameter 
START indicates whether the Performance Monitor output 
should be enabled or disabled. If the Performance Monitor is 
not active when your program starts its execution, 
PmStartStop does nothing. 



2-50 1200301:02B 



BUILDING AN APPLICATION 



7. The routines SetStackSlop and GetStackSlop are used to 
control the stack slop for the currently executing task. 
SetStackSlop sets the stack slop to the number of words that 
you specify. GetStackSlop returns the current stack slop 
setting. SetStackSlop will not allow the slop setting to be less 
than the minimum setting of 1024 (2Kb). For further details 
concerning the usage of these routines, see the MACINTOSH 
INTERFACE chapter. 

8. SetFileType and SetFileSignature are used to specify the 
permanent file type or signature for a Macintosh file being 
created by your program using the standard Pascal file I/O. 
The first parameter to these routines is a Pascal pointer value 
that points to a file variable that you have opened using the 
standard Pascal procedure rewrite . (Use the adr intrinsic to 
obtain this pointer value.) The second parameter is the four 
character file type or signature. When you close the file 
variable with the LOCK option, the created file's type and 
signature are set as specified. If your program creates a 
Macintosh file without calling SetFileType, the file type is set 
according to the type of the file. If you don't call 
SetFileSignature, the signature of your program is used when 
you close the file. 

Application Interface to the Finder 

The default interface between applications and the Macintosh 
Finder program simply allows programs to be started by the 
Finder. If you want your application to be started when an 
associated document is clicked or you wish to have special 
program and document icons displayed on the desktop then you 
must go through a little extra work. 

Associating Programs With Documents 

In order for the Finder to associate a document with an 
application two conditions must be met: 
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1. The application program must be "bundled^' into the 
Desktop. 

2. The document must have the same "creator" as the 
application. 

For more details on these topics see the section entitled "FILE 
INFORMATION USED BY THE FINDER" in the FILE 
MANAGER chapter of Inside Macintosh. 

To bundle a UCSD Pascal program into the desktop you run the 
Set Options program and set the "Set Bundle for FINDER" 
checkbox. The Set Options utility was described earlier in this 
chapter. 

Since UCSD Pascal programs normally have a creator of PROG 
any document with the same creator that is double clicked from 
the Finder will start your program (assuming no other programs 
with the same creator have been bundled into the desktop). Note 
that files created by the UCSD Pascal Runtime package do not 
have a creator of PROG. You will have to use the File Manager 
interface unit to create documents with the correct creator or use 
the appropriate Error _^ Handler entry point. 

In order to override the default application creator you use the 
RMaker program to set a new creator. For example: 

Examp f ® .R«rc II Ou'bpu't File Nam© 

APPLEXMP ii Type is APPL , Creator la EXMP 

INCLUDE UCSD Paaca J ltBmp%y Ppegram 

II Reaources required by all 
}*, UCSD Paaca I Programa 



Running RMaker using the above example will produce a 
resource file of type APPL with a creator of type 'EXMP^ Using 
this as the resource input file to the UCSD Pascal compiler will 
produce a UCSD Pascal program with the same creator and type. 
In order to make this creator type known to the Finder you need 
to run Set Options on the program and set the bundle bito 
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NOTE: Apple Computer would like to maintain a unique set of 
creator identifiers. If you wish to bundle your application into 
the desktop then you should call Apple Technical Support to get 
a unique creator identifier. 

Associating Icons With Files 

In addition to being able to let the Finder know an application's 
creator, you can also bundle in other information into the 
desktop. This is achieved by defining a resource of type 'BNDL'. 

For example suppose you wanted to define two new file icons, one 
for your application and another for the data files that your 
application will create and use. You could create a resource file 
for your program as follows: 



£x«mp le .Rsrc 
APPLEXMP 



Resource Out'pu't File 



INCLUDE UCSD Pascal 1: Empty Program 

}} Version String 



TYPE EXMP « STR 

,0 (32) 
Version 1 of Example Program 



TYPE ICN# a GNRL 
,2000 (32) 

OOOO 0000 0000 OOOO 

oooo ' 6666 " 6666 " 6666 * 

TYPE ICN# a QNRL 

,2001 (32) 

.H 
OOOO OOOO OOOO OOOO 

o666 * 6666 " 6666 * 6666 

TYPE FREF 

,2000 
APPL 

,2001 

DATA 1 

TYPE BNDL 

,2000 
EXMP O 
ICN# 

O 2000 1 2001 
FREF 
O 2000 1 2001 



The program Icon 
Def 1 nmd I mt^er 



The Data File Icon 
Defined later 



Fi le References 

for application file 
Type f o I lowed by Local 

Icon ID 

for data f i le 



Bundle Resource 

i gna-t 
ICONS 

Local IDs to Resource IDs 
File References 
Local IDs to Resource IDs 
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In the above example we have defined a Version String, two icon 
lists, and two file references. A file is associated with a particular 
icon list using the FREF resource. This resource defines a file 
type and a local icon identifier. The mapping from resource 
identifiers to local identifiers is accomplished in the BNDL 
resource. 

After you have created your program using the UCSD Pascal 
compiler you still need to run the Set Options program and set 
the bundle bit. After Set Options is run you will normally see 
your program icon switch from the standard application icon to 
the icon you defined as the program icon. 

Defining Icons Using RMaker 

An icon is defined as two 32 by 32 bit images. The first image is 
the icon in its dormant (unclicked) state. The second image is an 
icon mask which is used by the Finder to produce the image 
representing the icon in its active (clicked) state. The mask 
should be a filled in outline of the first icon. 



The UCSD Pascal compiler icon is defined using the following 
icon list: 



TYPE ICN# « GNRL 
,2000 (32) 
.H 
0001 OOOO 0002 8000 
0004 4000 0008 2000 
0010 lOOO 0020 4800 
0040 0400 0081 0200 
0100 0100 02O4 0080 
04E0 0040 0820 1020 
1220 OOIO 2100 4008 
488E 3F04 8802 4082 
4E32 8041 2029 3022 
1089 C814 088E 7F0F 
04E2 3007 0201 0007 
0100 8007 0080 6007 
0040 1FE7 0020 021F 
OOIO 0407 0008 080O 
0004 lOOO 0002 2000 
OOOl 4000 OOOO 8000 
OOOl OOOO 0003 8000 
0007 COOO OOOF EOOO 
001 F FOOO 003F F800 
007F FFCO OOFF FEOO 
01 FF FFOO 03FF FF80 
Qjpp FFCO OFFF FFEO 
IFFP FpFO 3FFF FFF8 
7FFF FFFC FFFF FFFE 



II Resource ID 



I I Th® f 1 r»-b s«"b of 

II ©f 16 row® define 
I I the ICON e 



I I The next. 16 rows 
I I def I nm the ICON 
I I mask «> 
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7FFF FFFF 3FFF FFFE 
IFFF FFFC OFFF FFFF 
07FF FFFF 03FF FFFF 
OlFF FFFF OOFF FFFF 
007F FFFF 003F FEIF 
OOIF FC07 OOOF F800 
0007 FOOO 0003 EOOO 
0001 COOO OOOO 8000 
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The Editor is used to create and modify text files. These files can 
be used for many purposes including input to the Pascal 
Compiler and creating textual data for Pascal program 
consumption. 

If the file you are editing is too big to fit on the screen, a portion 
of the file is displayed. This "window" into the file can be moved 
to display any part of the file you want. An example of the 
Editor display is shown in Figure 3—1. 
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Figure 3-1. The Editor Display. 

The basic editing operations are inserting characters, cutting a 
portion of the text, and pasting text into a new location. Text 
that is cut goes into a special window called the Clipboard. Text 
in the Clipboard can be pasted into any place in the file or into 
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another file. The Clipboard also allows you to transfer data 
between applications » 

All editing action tak^s place at the insertion point. The 
insertion point is marked by a blinking vertical line where the 
next character will be placed. Any characters typed or pasted 
from the Clipboard are inserted at this point. This is true even if 
the insertion point is not currently displayed in the window. The 
window is automatically scrolled to show the insertion point. 

The mouse is used to scroll the text in the window^ move the 
insertion point, select text to be cut or copied, point to menus, 
and select items on menus. 

The Editor is disk based. This means that the size of a file you 
can edit is limited only by the available space on the disk. 
However, as a file grows larger it takes longer to do simple 
editing operations on ito When a file becomes very large, you 
should split it into multiple pieces. 



USING THE EDITOR 

Start the Editor by double—clicking the Editor icon. For more 
information on starting applications refer to Macintosh, your 
owner's guide. 

You direct the Editor to work on a file by using the New or 
Open... command in the File menu. Selecting a command from 
a menu is discussed below in The Menus. 

The file that you are working on is called the "active document." 
Although you can have several documents open and accessible at 
any one time, you can edit only the active document. The active 
document appears in the "active window," which is indicated by 
a darkened title bar and scroll bars, and is always on top of all 
the other windows. 
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To leave the Editor, select Quit from the File menu, and you will 
return to the Finder. 



Entering and Deleting Text 

Text is entered into the active window at the insertion point by 
typing characters. Text is deleted at the insertion point by 
typing the < Backspace > key. Large deletions are done by 
selecting the text with the mouse and then typing < Backspace >. 
You change text by selecting the text to change and then typing 
the replacement text. 

Editing Operations 

The basic editing operations are cut, copy, and paste. To cut or 
copy text, you must first select the text to be cut or copied, then 
select either Cut or Copy from the Edit menu. Select text by 
moving the mouse while holding down the button. See 
SELECTING TEXT for complete information on selecting text. 
Text that is selected and then cut is removed from the active 
document and placed in a special window called the Clipboard. 
Text that is copied is placed on the Clipboard and also left in 
place in the active document. 

The contents of the Clipboard can be pasted at any point in the 
active document by placing the insertion point where you want 
the text inserted and choosing Paste from the Edit menu. 

The Menus 

Operations are provided in six menus: 

• The File menu is used to access files, print text, and exit the 
Editor. 

• The Edit menu is used to edit text. 
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• The Search menu provides commands to find and change 
strings in the active document. 

• The Format menu handles setting the tab stops and enabling 
auto indent mode. 

• The Font menu allows you to select the font of the current 
document for display and printing. 

• The Size menu allows you to set the size of the current font. 

Each of these menus is described in more detail in the sections 
that follow „ 



Creating, Opening and Closing Files 

Files are created, opened and put away using the functions of the 
File menu. The New command creates a new file. The Open... 
command opens an existing file. The Close command puts away 
the active document. 

The Open..« function uses the Open Box to help you select the 
file to open. This dialog box is shown in Figure 3—2. 



"~~" 
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[ Opsr? ] 


[ Eject ] 


[ Cancel ] 


[ Driiie ] 


mmmm 









Figure 3-2. The Open Box. 

To open a file, first scroll the file list by clicking the mouse in the 
scroll arrows until the file you want to open is in the list. Next, 
select the file by using the mouse to click its file name. Finally ^ 
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click the Open button to open the file. An alternative method of 
opening a file is to double—click its file name. 

The file list displays only the files in the current drive that have 
a file type of TEXT. The name of the disk in the current drive is 
displayed above the Eject button. The other buttons are as 
follows: Cancel aborts the operation, Drive switches to the other 
drive, and Eject ejects the disk from the current drive. 

Various File menu functions cause the active document to be 
saved. If the Editor needs you to supply a file name it uses the 
Save Box, shown in Figure 3—3. 



Saue document as 



Figures:FIRST 



Figures 



[ Saue "^ [ Cancel ] [ Driue ] 



Figure 3-3. The Save Box. 

To save a file, first type its file name. Next, use the Eject and 
Drive buttons to make the disk it is to be saved on the current 
drive. (The current drive name is shown above the Eject button.) 
Finally, click the Save button. The Cancel button is to abort the 
save operation and return to the Editor. 

The field where you type the file name is a standard Macintosh 
editable text field. This means that you can use the mouse to 
edit the file name until it is correct. See Macintosh for more 
information on editing text fields. 
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Editing Multiple Files 

Up to four documents can be open at one time, but only one 
document is the active document. To read in a document when 
you already have an active document, choose Open... from the 
File menu. It asks you for the document name. The new 
document is read into a window on the screen and becomes the 
active document. To make another document that is already 
open the active document, use the mouse to move the pointer into 
a portion of that document and click the mouse button. If you 
have several documents open, you might have to move some out 
of the way. 

This capability of working with more than one document at a 
time can be used to copy text from one document to another. 
This process is described in detail in EDIT FUNCTIONS. 



SELECTING TEXT 

The basic editing functions are cut, copy and paste. Before you 
can cut or copy text, you must select the text to be cut or copied. 
Before you can paste, you place the insertion point by using the 
mouse to move the pointer on the screen. 

Within an active document, the pointer will have one of three 
shapes: 

• Text pointer in a document. 

• Arrow pointer for menus and scroll bars. 

• Wrist watch when an operation will take some time. 

Use the mouse to move the pointer on the screen. The shape of 
the pointer changes when you move into and out of the document 
window. 
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Within the window, the text pointer is used to move the insertion 
point and to select text. 

In selecting text, you can select characters or words. You can 
also select any number of characters or words. Selected text is 
displayed in reverse video. 

Moving the Insertion Point 

The insertion point is indicated by a blinking vertical line where 
the next character will be inserted. All insertion, whether from 
typing or pasting, takes place at this point in the file, even if it is 
not visible in the window. 

To move the insertion point, move the mouse, directing the 
pointer to where you want it to be and click. Note that the 
insertion point moves when you select text. The insertion point 
is never placed beyond the end of a document. 

Selecting Characters 

To select characters, move the text pointer to the beginning of 
the characters you want to select, press and hold the mouse 
button while moving to the last character you want to select. 
You may select in either a forward or backward direction 
through the file. 

An alternate method of selecting characters that is especially 
useful when selecting a large block of text is also available. Using 
this method, you move the pointer to the beginning of the text 
you want to select and click the mouse button. Then you move 
the pointer to the end of the text you want selected and 
shift— click. Shift— click means to hold down the shift key on the 
keyboard and click the mouse button. You can use the scrolling 
controls to display the end of the text you want selected if it is 
too big to fit in the window. 
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Selecting Words 

To select a word, move the pointer into the word and click the 
mouse button twice. To select multiple words, click the mouse 
button twice and hold. Move the pointer to the last word you 
want selected and release. If you double—click, and hold down 
the mouse button while you move the insertion point to the left 
or right, the selection expands or contracts by words. 

Adjusting the Amount of Text Selected 

To change the amount of text selected, move the pointer to the 
position that you want the selection to extend to and shift—click. 
This can be used to either expand or contract the selection. 



SCROLLING AND MOVING THE DISPLAY 

When a document is longer than will fit into the display window, 
only part of the document is displayed at one time. You can 
change what part is displayed by "scrolling" through the display 
either horizontally or vertically. The vertical bars on the right 
and bottom sides of the active window are the scroll bars. An 
example of a text window showing the scroll bars is in Figure 
3-1. 

The display window can be changed in size and moved on the 
screen c This enables you to have multiple documents displayed 
on the screen. These operations are done using the title bar., and 
size control box (See Moving the Window, below.) 

Scrolling the Display- 
There are three ways of moving the display window through the 
document. In the first method you use the elevators. The 
elevators are the white rectangles in each scroll bar. Its position 
in the grey portion of the scroll bar (the "elevator shaft") 
indicates the relative position of the currently displayed text 
window in the document. If it is near the middle, the text 
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displayed in the window is near the middle of the document, and 
so on. To change the position of the text window, you can move 
the pointer into the elevator, click and hold the mouse button 
down while you move the elevator to another position in the 
elevator shaft. When you release the button, the window will 
display the new position in the file. 

The second way of moving the window uses the scroll arrows, 
which are just to either side of the elevator shafts. If you move 
the arrow pointer to the bottom scroll arrow and click, the 
display window will move one line toward the end of the 
document. If you hold the button down, the window will 
continue to move a line at a time until you release it. The other 
three arrows work in a similar way. 

The third way of moving the window uses the gray regions to 
either side of the elevators. Clicking the mouse in one of the gray 
regions causes the Editor to scroll one window— full of 
information. You can use this feature to page through a file. 

Moving the Window 

You can move the window on the screen and change its size. This 
lets you display multiple documents on the screen. You can make 
any visible window the active window by moving the pointer into 
it and clicking. 

To move the position of a window on the screen, move the 
pointer to the title bar (but not in the close box!), press the 
mouse button and hold it while you move the window. When 
you release the button, the window is redisplayed at the new 
location. 

To change the size or shape of the active window, move the 
pointer to the size control box, press the button, and move the 
pointer until the window is the right size and shape. Release the 
button and the resized window is displayed. The size control box 
is the box in the lower right hand corner of the window. Only 
the active window can be resized. 
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THE FILE MENU 

The File menu provides functions for reading in and writing out 
documents, updating documents, printing documents, and exiting 
the Editor. The File menu is shown in Figure 3—4. Each 
function is explained below. 
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Figure 3-4» The File Menu. 

New* The New command creates a new document with the 
name Untitled and makes it the active document. You can 
also execute the New command by typing N while holding 
down the Command key. 

Open... This tells the Editor to get a new 'document. It 
prompts you for the document name using the Open Box, 
then reads it in and makes it the active document. You can 
also execute the Open... command by typing O while holding 
down the Command key. Another method of opening a new 
document is to type K while holding down the Command key, 
and then type in the name of the document you want to open 
followed by < Return >. This option does not appear in the 
menu. 

Opeiio This opens a file whose name corresponds to the 
contents of the currently selected text in the active window. 
This is used primarily to open an include file based on its 
name in the current document. You can also execute the 
Open command by typing D while holding down the 
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Command key. 

Close. This puts away the active document discarding any 
changes that have been made. You are asked to confirm 
whether the changes are to be discarded. If the document 
does not have a name, you are asked to supply one using the 
Save Box. 

Save. This writes out the active document, but does not close 
it. 

Save as... This writes out a copy of the active document to 
another document name. You are prompted for the name of 
the document to write to with the Save Box. 

Revert to Original. This returns the document to the way it 
was before you started editing it, or when you last saved it. 
This is done by reading the document from the disk. 

Print. The Print command prints the active document using 
the current font and font size. Executing the Print command 
causes the standard Print dialog box to be displayed in which 
you select various print options. If the Print dialog box fails 
to appear, you probably do not have an Imagewriter file on 
the same disk as the Editor. Refer to MacWrite Sot more 
information on the standard Print dialog box. 

Quit. This first asks you if you want to put away any 
modified documents. If you answer yes, they are written out 
to disk. Then it exits the Editor. 



THE EDIT MENU 

The Edit menu provides editing functions and tab setting. It is 
shown in Figure 3—5. 

The three basic edit functions are cut, paste and copy. These 
make use of the special window called the Clipboard. The 
Clipboard can hold only one piece of text. Text is put into the 
Clipboard by selecting it in the active document, and either 
cutting it or copying it. Text is copied from the Clipboard and 
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inserted at the insertion point with the paste operation. 
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Figure 3-5. The Edit Menu. 

For example, to move text from one place in a document to 
another: 

Ic Select the text to be moved. 

2. Choose cut from the Edit menu. The text is removed from 
the active document and placed on the Clipboard. 

3. Place the insertion point where you want the text to be. 

4. Choose Paste from the Edit menu. The text on the Clipboard 
is inserted at the insertion point. 

The Edit menu also enables you to adjust selected text left or 
right by inserting or deleting spaces. Here are the Edit functions: 

• Undo* This command puts the document back the way it was 
before the previous operation? if possible. If there is no 
change to undo, the function is called Can't Undo. 
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Cut. Cut places a copy of the currently selected text onto the 
Clipboard and removes the text from the active document. 
You can also Cut by pressing the X key while holding down 
the Command key. 

Copy. Copy places a copy of the currently selected text onto 
the Clipboard, but does not remove it from the active 
document. You can also copy by presing the C key while 
holding down the Command key. 

Paste. Paste inserts a copy of the text on the Clipboard at 
the insertion point in the active document. If a section of text 
is selected, Paste replaces it. You can also Paste by pressing 
the V key while holding down the Command key. 

Clear. Clear removes the currently selected text from the 
active document. The text is not placed in the Clipboard. 

Align. The Align command lines up the left edges of the 
selected lines. The align command is most often used to undo 
indentation in Pascal programs. You can also Align by 
pressing the A key while holding down the Command key. 

Move Left. Move Left moves selected text left by deleting a 
single space from the left of each line. It does not delete any 
characters other than spaces. It is most often used to adjust 
the left margin of a block of text. You can shift left by 
pressing the L key while holding down the Command key. 

Move Right. Move Right is similar to Move Left, except that 
it moves the selected text to the right by inserting spaces at 
the beginning of each line. This can also be done by pressing 
the R key while holding down the Command key. 

Show Clipboard. This enables the display of the Clipboard 
window and selects it. If the Clipboard is already displayed, 
this command is called Hide Clipboard. 
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The Search menu gives you the ability to search for a text string 
in the active document. The basic operation is Find, which 
locates the next occurrence of the string and selects it» Change 
allows you to find a string and replace occurrences of it with a 
different string. Both of these operations search from the current 
insertion point to the end of the document. If you want to search 
from the beginning of a document^ you must move the insertion 
point to the beginning of the document. The Search menu is 
shown in Figure 3— 6. 
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Figure 3—6. The Search Menu« 

AJl searches start at the insertion point, and go to the end of the 
document. The search functions are as follows: 

• Find* Find enables the Find Window, and displays it on the 
screen. The Find command can also be executed by pressing 
the F key while holding down the Command key. 

• Change. Change enables the Change Window and displays it 
on the screen. The Change command can also be executed by 
pressing the S key while holding down the Command key. 

• Hide Find. If the Find Window is enabled, the Hide Find 
command will close the Find Window. If the Change Window 
is enabled, this command is called Hide Change. 
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The Find Function 

The Find function is performed using the Find Window, shown in 
Figure 3—7. To find an occurrence of a string, first, you edit the 
string to be found by using the standard Macintosh editing 
functions. Next, select Whole Word search or Partial Word 
search by clicking the appropriate box with the mouse. In Whole 
Word search, the string will only match complete words 
separated by spaces or other punctuation. In Partial Word 
search, the string may match any part of a word. Finally, you 
click the Find Next button. 







^m Find ^^^^ 




Find ULihdt: 






D Whole Uiord 
[S Partial lUoid 


proc 


jFind NeKl j 







Figure 3-7. The Find Window. 

If there is an occurrence of the string, it is selected. If no 
occurrence can be found, the Editor gives a warning message. 
Succeeding occurrences of the string can be found by just clicking 
the Find Next button. 



To put away the Find Window, click in the close box within the 
title bar of the Find Window. 



The Change Function 

The Change function is performed using the Change Window, 
shown in Figure 3—8. To change all occurrences of a string for 
another, first edit the Find What and Change To strings in the 
Change Window. This is done using the standard Macintosh 
editing functions. Next, select Whole Word search or Partial 
Word search. Whole Word search only allows the string to 
match words separated by spaces. Partial Word search allows 
the string to match any string of characters. Finally, you click 
the Change All button. 



1200301:036 3-15 



EDITOR 



Chapter 3 



Find What: 
Change To: 
(find NeKt J 


^^m 




K 




H*1| 




l^n.... 


. ::-■; 5-;;:;^' 1 (•; ,:-v,:.:] (Change flUj 


D U'hole U»ord E3 Partial H'ord 



Figure 3—8. The Change Window 

The other Change options are as follows: Find Next finds and 
selects the next occurrence of the Find What string; Change, 
Then Find changes the current selection, then finds the next one; 
and Change changes the current selection. 

To put away the Change Window, click in the close box within 
the title bar of the Change Window. 



THE FORMAT MENU 

The functions in the Format menu allow you to set the spacing of 
the tab stops, configure auto indenting mode, display nonprinting 
characters, and set the printing page format. The Format menu 
is shown in Figure 3—9. 




Figure 3—9. The Format Menu. 

Set T&bso Set Tabs enables you to set the spacing of the tab 
stops. You may only select a spacing between 1 and 20. Note 
that the compiler listing pass assumes 8 spaces per tab stop. 
If you create Pascal source text with different tab settings, 
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your listing wonH precisely match you source text. 

Auto Indent Off. This toggles the auto indent mode on and 
off. In auto indent mode, carriage returns puts the insertion 
point in line with the indenting of the previous line. This 
option is especially useful for indenting Pascal programs. If 
auto indenting is already off, this function is called Auto 
Indent On. 

Show Invisibles. Show Invisibles will display the non- 
printing characters (i.e. blanks, carriage returns, and tabs) in 
the currently active window. If the non— printing characters 
are currently being displayed, this command is called Hide 
Invisibles. 

Printing Format. The Printing Format command brings up 
the standard Page Setup dialog box. Refer to MacWrite for 
more information. 



THE FONT MENU 

The Font menu enables you to change the display font. The 
Font menu is shown in Figure 3—10. A check appears in front of 
the font in which the active document is currently displayed., 
You can change the font by selecting another font from the 
menu. 

File Edit Search Format E SSR^'^^ 
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Figure 3—10. The Font Menu. 

The font selected affects how many characters can be displayed 
on a line, and whether or not the display is proportionally 
spaced. Different fonts can be active in different windows at the 
same time. Which fonts can be selected depends on the fonts 
available on the system disk that you booted with. 
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NOTE: The UCSD Pascal 1 disk has a System file that 
contains only the Chicago— 12, Geneva— 12, and Monaco— 9 fonts 
installed on it. If you wish to use other fonts from the Editor, 
you must replace the System file, or use the Font Mover program 
to augment the font set of the System file. 



THE SIZE MENU 

The Size menu enables you to choose the size of the current font. 
The Size menu is shown in Figure 3—11. A check appears in 
front of the font in which the active document is currently 
displayed. You can change the font size by selecting another size 
from the menu. 
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Figure 3—11. The Size Menu. 

For each font, only certain sizes are available. These sizes are 
shown within the size menu in hollow letters. The font will look 
best if one of these sizes is selected. Otherwise, the Macintosh 
must do "scaling" which can detract from the appearance of the 
characters and slow down the speed of drawing characters. 
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OVERVIEW 

This chapter is a supplement to The UCSD Pascal Handbook 
which describes the version of the UCSD Pascal language 
supported by The MacAdvantage; UCSD Pascal. 

The UCSD Pascal Handbook contains a thorough description of 
the basic UCSD Pascal language as it is implemented under 
Version IV of the p— System. The MacAdvantage: UCSD 
Pascal is an extended version of this UCSD Pascal language. In 
the creation The MacAdvantages UCSD Pascal, some major 
new language features were introduced, and a few p~ System 
specific features were removed. 

In addition to the language features added for interfacing to the 
Macintosh, this supplement describes all of the enhancements to 
UCSD Pascal that have been introduced since the publication of 
The UCSD Pascal Handbook, There is also a section that identifies 
material in The UCSD Pascal Handbook that is not applicable to 
The MacAdvantage: UCSD Pascal environment. The last 
two sections contain revised descriptions of the compiler options 
and the conditional compilation facility. 

Throughout the remainder of this chapter, the name UCSD 
Pascal refers to The MacAdvantage: UCSD Pascal version of 
the language. 
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Language Enhancements 

The language features not described in The UCSD Pascal 
Handbook include: 

1. The rules regarding the ordering of label, const, type, var, 
procedure, and function declarations within a declaration 
section have been relaxed. Identifiers must still be 
appropriately declared before they are used, but the usage of 
include files no longer influences the ordering that the 
compiler will accept. This gives you considerable freedom in 
the logical arrangement of large declaration sections. 
However, the compiler does require that it be able to resolve 
any accumulated forward references within pointer type 
declarations upon encountering a procedure or function 
declaration. 

2. A new form of uses declaration called the "selective" uses 
declaration has been added to the language. This form of 
uses declaration is useful for economizing on symbol table 
space and resolving name conflicts between units. 

3. Procedural and functional parameters are supported. This is 
a Standard Pascal construct for passing procedures and 
functions as parameters which was not implemented in earlier 
versions of UCSD Pascal. 

4. Conformant arrays are supported. Conformant arrays are 
array parameters in which the array bounds are not fixed. 
The implementation follows the definition in the ISO Pascal 
standard. 

5. A variant of the conformant array parameter construct called 
an "interface conformant array" is also supported. This 
construct is primarily useful in system programming for 
writing procedures which operate on parameters of arbitrary 
types. 

6. The sizeof and pmachine intrinsics have been enhanced to 
make the writing of portable and efficient programs easier. 
These enhancements make it possible to (1) obtain the size of 
a variable or type in whatever units you wish, (2) store 
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pointer values in a size independent manner, and (3) easily 
generate the set of two byte p— code opcodes used by The 
MacAdvantage: UCSD Pascal. 

7. Long integer arguments may be passed to the standard 
functions pred, succ, ord, and abs. 

8. Due to a need for a clean interface to the Macintosh 
Operating System, a 32— bit integer data type, integer2 , is 
supported. Unlike the long integers in UCSD Pascal, this 
data type may be used in all of the contexts where the integer 
data type may be used. (Long integers are still available, and 
have the same characteristics as before.) 

9. Pointer manipulation intrinsics have been added to support 
manipulation of 32— bit absolute addresses. These intrinsics 
^^®" absadr , reladr, derefhnd , absmove , locate . Additional 
pointer manipulation intrinsics were added which can be used 
to manufacture or manipulate pointers in a size and 
implementation independent manner. These intrinsics are: 
adr , pointer , offset . 

10. Bit manipulation intrinsics have also been added. These 
include band , bor, bxor , bnot , shiftleft , shiftright . These new 
intrinsics make efficient data manipulation operations easier 
to write; 

11. An intrinsic called setlength has been added for setting the 
length of a string variable in an implementation independent 
fashion. 

12. A new type of external procedure, called an "in— line 
procedure," is supported. A call to an in— line procedure 
becomes a direct call to a Macintosh Operating System 
routine. 
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Language Changes 

The following are the language changes from the UCSD Pascal 
language under the p— System: 

1. Two unadvertised constructs involving pointers are no longer 
allowed: (1) The standard function ord does not accept 
pointer arguments, and (2) pointers may only be compared 
for equality (=) or inequality (<>). 

2. The unit I/O intrinsics are not supported. These are: 
unitread, unitwrite , unitstatus , unitbusy , unitwait, unitclear . 

^- The gotoxy intrinsic is not supported due to the ambiguity of 
such an operation when a proportionally spaced character 
font is used for the .CONSOLE device. 



USING THE HANDBOOK 

This section is intended to bring to your attention certain 
material in The UCSD Pascal Handbook which either does not 
apply to you, or needs to be interpreted differently because you 
will not be writing UCSD Pascal programs under the 
p«- System, 

Using the Macintosh version of UCSD Pascal isn't radically 
different from what is described in the handbook. Most of the 
differences involve small details which will become clearer after 
you have absorbed the material in this chapter and the 
GENERAL OPERATIONS chapter. 

In the handbook, there are a number of places where you are 
referred to manuals that are not included with the version of 
UCSD Pascal that you have purchased. The following table may 
give you some clues as to which chapter of this user manual to 
read in order to look up some of the topics referred to in The 
UCSD Pascal Handbook. The short explanations given here are 
intended to help you quickly sort out the differences between the 
descriptions in the handbook and the way things work with your 
Macintosh version. 
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p. 16: Library 
handling 

p. 17: Runtime 
Errors 

p. 19: Textfile 
maintenance 



See the LIBRARIAN chapter. 



See the GENERAL OPERATIONS 
chapter. 

See the EDITOR chapter. 



p. 27: Predeclared 
identifiers 



p. 27: pmachine 
intrinsic 

p. 59: trunc (L) 



List is not complete and includes 
identifiers that are no longer 
predeclared. 

The pmachine intrinsic is described in 
this chapter. 

Produces overflow error if long integer L 
is outside of the range ~niaxint2--l .c 
maxint2. 



p. 86: Character- 
devices 



p. 87: Keyboard 
End Of File 



The names of the character— devices are 
slightly different. Redirection of I/O on 
these devices is not supported. See the 
GENERAL OPERATIONS chapter. 

This feature is not available. 



p. 95: Space 
Allocation 



See the P-M A C H I N E 

ARCHITECTURE chapter. 



p. 97: Real numbers Only 64— bit real numbers are supported. 



p. 101: sizeof 
intrinsic 



p. 103: declaration 
ordering 



The warning about the sizeof intrinsic is 
no longer accurate. See the revised 
description of the sizeof intrinsic in this 
chapter. 

Include files no longer influence the 
ordering of declarations that the 
compiler will accept. See the discussion 
of this topic in the OVERVIEW section 
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Pe 115: Library files 



Pc 133: Debugger 

po 135: input 
and output 



p. 140: File naming 
conventions 



p. 146: keyboard 



p„ 146: Device I/O 



p. 151: ioresult values 



of this chapter. 

There is no file called 
*SYSTEM. LIBRARY. See the 

GENERAL OPERATIONS and 
LIBRARIAN chapters. 

See the DEBUGGER chapter. 

The standard files input and output are 
permanently opened to the .CONSOLE 
device. See the GENERAL 

OPERATIONS chapter. 

The Macintosh file naming conventions 
are similiar, but slightly different. See 
the GENERAL OPERATIONS chapter. 

The file keyboard is opened to the 
.SYSTERM device. See the GENERAL 
OPERATIONS chapter. 

Material in this section is not applicable 
to the Macintosh environmentc Low 
level device I/O can be done using the 
Macintosh interface unit PBIOMGR 
instead. See the MACINTOSH 

INTERFACE chapter. 

^^^ ior^s^lt intrinsic returns values 
different from those listed. In fact^ 
ioresult can return negative values. See 
the ERROR MESSAGES Appendix. 



p. 152: Screen I/O 



There is no screen control unit. 
gotoxy intrinsic is not supported. 



The 



p. 153: Memory 
Management 

p. 163: Interrupts 



See the MEMORY MANAGEMENT 
chapter. 

No p— Machine events are supported. 
Thus the attach intrinsic cannot be used. 
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p. 167: Quiet 
compile option 

p. 167: Realsize 
compile option 

p. 170: Copyright 
notices 



p. 171: U(ser 
restart command 



Default setting is always " — ". 
no file SYSTEM.MISCINFO. 



There is 



Only 64 bit real numbers are supported. 



Up to 77 characters of copyright notice 
can be placed into the segment 
dictionary. The structure of the segment 
dictionary is described in the 
P-MACHINE ARCHITECTURE 
chapter. 

This feature is not available. 



p. 172: External 
routines 



The compiler will allow the form of 
external routine declaration shown 
here; but you need the appropriate 
assembler and linker to write external 
routines in assembly language. See 
IN-LINE PROCEDURES AND 
FUNCTIONS. 



p. 280:BOOT_COPY This example program uses the 
program unsupported unit I/O intrinsics, 

therefore it will not compile. 



p. 307: ord(odd) 



Technique discussed here still works with 
type integer; but will not work with type 
integer 2 . Use the bit manipulation 
intrinsics instead. See Bit Manipulation 
Intrinsics and Integer2 Routines. 
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INTEGER2 DATA TYPE 

UCSD Pascal supports a 32— bit integer data type called integer2, 
which represents integral values in the range —2147483648 to 
2147483647. The integ;er2 data type can be used in all contexts 
where it is legal to use integer . The integer2 data type is an 
extension to Standard Pascal. 

Except for their differing sizes, the only difference in operation 
between int€ger2 and integer is the way that overflow is handled. 
Operations on the integer data type do not report integer 
overflow- — the result of an overflow "wraps" back into the 
integer range, producing strange arithmetic results. Operations 
^^ integer2 report an execution error if the result of an expression 
is out of range. 

Since the type integer2 can be used anywhere it is legal to use 
type integer , it is possible to: 

• Index arrays with integer2 values. 

• Use integer2 variables as for statement control variables. 

• ^^^ integer2 constants as case label constants in record type 
declarations and case statements. 

• Use integer2 typed expressions as selectors in case statements. 

• Define functions that return integer2 resultSc 

Generally, you should use the integer2 type only when a 
particular Macintosh interface requires that you use it, or when 
the program you are writing requires the extended range of 
values offered by the integer2 type. This is because integer2 
variables occupy twice the amount of memory as integer 
variables, and integer2 operations are somewhat slower than 
integer operations. 
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Integer 2 Format 

An integer2 constant value is represented by a sequence of digits, 
preceded by an optional '-f ' or '—'. If no sign is present, the 
constant is positive. 

Each of the following is an integer2 constant: 
o 

7777777 

-4582354 

-1 



Integer2 constant values can be specifed in the range ~' maxint2 .. 
maxint2. The identifier maxint2 is a UCSD Pascal predeclared 
constant identifier that has the value 2147483647. The constant 
identifier maxint2 is an extension to Standard Pascal. As with 
^^^ integer data type, there is a negative integ;er2 value 
(—2147483648) that does not have a corresponding positive value. 

An integer constant takes its type from the context in which it 
appears. Thus, may represent an integer constant in one 
context and an integ:er2 constant in another, depending on what 
the compiler judges to be the required type. 

Integer constants outside the range of values — maxint2 .. 
maxint2 are considered to be long integer constants. 

Type Compatibility 

As with the standard type integer , additional 32— bit integer data 
types may be declared via subrange type declarations. Any 
integer subrange type which includes integer values outside the 
range — maxint .. maxint is considered a subrange of the integer2 
type. If either bound of such a subrange type lies outside of the 
range — maxint2 .. maxint2 , the compiler reports a syntax error, 
since long integer subrange type declarations are not allowed. 
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The following example contains subranges of the integer and 
integer2 types: 

0..maxin't '{an in-begor aubrange} 

, ->S5565. .4 ^mn jn"teger2 subrange}- . 

5..maxin't2 \«n i ntr«ger2 subrange} 



The integer2 data types are assignment compatible with the 
integer data types, and vice versa. However, there can be a 
difference in meaning between a use of integer2 and integer , 
because the overflow conditions of the two types differ. 

The type compatibility rules between the integer 2 data types and 
the long integer data types are identical to the compatiblity rules 
between type integer and long integers. Briefly, these rules are as 
follows: 

• In an expression, any integer or integer2 operand is 
compatible with a long integer operand. The conversion from 
integer or integer2 to long integer is done automatically. 

• Long integers may be assigned the values of expressions of 
either integer or integer2 types. The conversion to long 
integer is done automatically. 

• A variable of type integer or iBteg€r2 cannot be assigned the 
value of an expression of a long integer type. First, the long 
integer must be converted to an integer2 using the standard 
function trunc . 

Integer2 Comparisons 

All the comparisons legal for integer are also legal for the 
integer2 data type: 

s o . o means . . » equa I "bo 

<> nofc equal -bo 

> gree-feer 'than 

>ss greater "bhan ©r equal "bo 

< less "bhan 

<SB less 'bhan or equal bo 
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Integer2 Operations 

All the operations legal for integers are also legal for the integer2 
data type. 

These are the legal operations on a single integer: 

-¥ ... means . . . unary plus 
— \jrtmry minua 



A unary operator may not be strung together with a binary 
operator. The following example shows this: 

5* (-4) <logaT> 



These are the legal operations on two integer2 operands: 



•f p I us 

- minus 

* 'times 

d t V in^e^er divide 

mod remainder of in-teger divide 



If the second operand of div is zero, a runtime error occurs. If 
the seond operand of mod is less than or equal to zero, a runtime 
error occurs. The integer2 div and mod operations are defined 
to perform the same functions as the integer div and mod 
operations. 

The multiplicative operators *, div, and mod take precedence 
over the additive operators 4- and — . To override operator 
precedence, subexpressions may be grouped together with 
parentheses. 
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Integer2 Routines 

The following routines take an integer2 parameter and return an 
integer2 result. 

abs(I2) returns the absolute value of 12, which is an integer2 . 

sqr(I2) returns the square of 12, which is an integer2 . 

succ(l2) returns the I2-f 1, where 12 is an integer2 . 

pred (l2) returns the 12—1, where 12 is an integer2. 

The standard functions ( odd , chr , and ord) accept integ^er2 
arguments. The functions ord , sqr , and abs will return type 
inteRer2 values when passed integer2 arguments. 

NOTE? The standard function odd , when supplied with an 
integer2 argument produces exactly the Boolean values true and 
false . That is, ord f odd (E)), where E is an expression of type 
integer2 , will always return zero (0) or one (1). This is not the 
case when the argument tp odd is an expression of type integer , 
since odd only serves to change the type of the expression to 
Boolean and does not change the value in any way. What this 
implies is that you should NOT use odd as a type conversion 
function. Use the bit manipulation intrinsics instead of tricks 
which rely on the implementation of odd. For example, the 
obscure statement 

Y sa ord (odd (X) and odd (Z) ) 

should be written as: 

Y tss band(X, Z) 
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The standard procedures read , and readln can be used to read 
values into inteRer2 variables. Similiarly, write and writeln can 
be used to write inteKer2 values to text files. 

The standard functions trunc and round return type integer2 . 

Integer2 Conversions 

In arithmetic expressions involving a mixture of data types, 
operands are automatically converted so the two operands of any 
one operation are of the same type. 

The result type of an operation is established from the type of the 
operands. If both operands are of the same type, the type of the 
expression is the same as the type of the operands. If on the 
other hand the operands are of different types, the type of an 
expression is the type of whichever operand has the highest type- 
precedence. 

The term "type— precedence" refers to a conceptual ordering of 
the various arithmetic data types. The type— precedence of a 
given type may be thought of as a measurement of the number of 
different types whose values can be converted to that type. Type 
real has the highest type— precedence, followed by integer2, and 
integer, in that order. 

NOTEj Long integers are not compatible with type real . In an 
expression with a mixture of long integer operands and integer or 
integer2 operands, the type— precedence ordering is as follows: 
long integer, integer2 , integer . 

Two type conversion intrinsics called extend and reduce are 
defined which provide the programmer with facilities for 
controlling the type of an integer expression: 

extend (X) causes the integer expression X to be converted to 
integer2 type. If the expression X is of the integer2 type, 
extend (X) is a null operation. It is natural to use extend in 
situations where both operands are of type integer , but the result 
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of an operation is expected to be outside the range of type 
integer . For example, the assignment statement 



could be written as 

Grancl_"bo'ta I := ox-bend (La«-b__year) + Thls^year 



in order to force the calculation to be performed using 32—bit 
integer arithmetic. In the situation depicted in the above 
example, GRAND _ TOTAL would be a variable of type integer2 , 
and the sum of the two integer values LAST _ YEAR and 
THIS _ YEAR is potentially larger than maxint . 

reduce(X) causes the integer expression X to be reduced to type 
integer. If the value of X is outside the range of values 
— maxint — 1 ,. maxint an Integer Overflow execution error is 
reported. If X is already an expression of integer type, reduce (X) 
is a null operation. 



PASCAL INTRINSICS 

Setlength Intrinsic 

A new string intrinsic called setlength is available in UCSD 
Pascal. Its definition is as follows: 

setlength fPESTINATlON, SIZE) is a procedure. It sets the 
current length of the string variable DESTINATION to the value 
of the integer expression SIZE. 

For example, 

•©•b I eng-bh (S, I «ngt.h (S) -¥%) $ 
SCI#ngt>h(S)is« ^*»| 
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appends an asterisk to S. 

An advantage of using setlength as opposed to making an 
assignment to the "length character" is that range checking does 
not have to be disabled around the statement that sets the length 
of the string. 

Bit Manipulation Intrinsics 

UCSD Pascal contains a set of bit manipulation intrinsics to aid 
in disecting integer and integ;er2 values into fields. These are: 
band , bor, bxor , bnot, shiftleft, shiftright. Each of these intrinsics 
is a function. The four logical operations (band, bor, bxor , and 
bnot) provide a clean alternative to the old style " ord ( odd (X) 
and odd(Y))" constructions. 

band(P,Q) where P and Q are integer or integer2 expressions 
returns the bit—wise and of P and Q as an integer or integer2 . If 
both P and Q are integer the result is an integer . Otherwise, the 
result is an integer2 . 



X :3s 



band tX, 256) ^Tmasks X 'to i ^ts tower byte> 

band (X, -2) iforc^m X to b« even> 



bor(P,Q) where P and Q are integer or integer2 expressions 
returns the bit— wise or of P and Q as an integer or integer 2 . If 
both P and Q are integers the result is an integer . Otherwise, the 
result is an integer2 . 

Xs= bor<X,256) <turn« on bit 8 of X> 

Xsss bor(X,l) -C'^orcoa X to be odd> 



bxor(P,Q) where P and Q are integ^er or integer2 expressions 
returns the bit— wise exclusive— or of P and Q as an integer or 
integer 2 . If both P and Q are integers the result is an integer. 
Otherwise, the result is an integer2 . 

Xs3B bxor^X,-!) «ftnvert« the bita of Xy 

X:s bxor(X,l) •{changea the parity of X^ 
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bnot(P) where P is an integer or integ^er2 expression returns the 
bit— wise ones— complement of P as an integer or integer2 . The 
type of the result is the same as the type of P. 

Xias bnot(X) <inv«rtv« th« bits of X> 



shiftleft (P,N) where P and N are integer or integer2 expressions 
returns the value of P shifted left by N bits. The bits that are 
shifted out of P are lost. The bits that are shifted into P are zero 
bits. If P is an integer , the result is an integer . Otherwise, the 
result is an integer2 . 

Xsa «h«ftleft(X,l) <doubl«» the va l^ue of X> 
Xsa »h1ftleft<b«nd(X,255) ,8) 

<«hift th« low byt« of X> 



shiftright (P,N) where P and N are integer or integer2 expressions 
returns the value of P shifted right by N bits. The bits that are 
shifted out of P are lost. The bits that are shifted into P are zero 
bits. If P is an integer, the result is an integer . Otherwise, the 
result is an integer2 . 

Xsas «hiftfight(X,l) <halvos th« value of X> 
X?« band(«hiftr1ght(X,8) ,255) 

"{peturna the second byte of Xy 



Here is an example routine that uses the bit manipulation 
intrinsics to multiply (the hard way) two positive integers. 

function TIMES (X,Y: integer)? integerj 
var 

RESULT ^ I : in tege r ; 
begl n 

RESULT s« 0| 
for X|« O to 15 do 
beg I n 

if band<X,l) « 1 

then RESULT: a RESULT^Yj 
Xsss shiftr1ght(X,l) I 
Ys« sh«ft}eft(Y,l) ; 

TIMES s a RESULT; 
®nd$ <TIMES> 
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Pointer Intrinsics 

UCSD Pascal contains a set of pointer manipulation intrinsics. 
These intrinsics were added to the language for the following 



• They eliminate much of the need, for the pmachine intrinsic 
and the ord(POINTER) construct to do pointer manipulation. 
This makes system— level pointer manipulation much cleaner 
and in some instances more efficient. 

• They make pointer manipulation code independent of the 
representation or size of pointers. This paves the way for a 
larger pointer size in UCSD Pascal. 

• They make it possible to manipulate data outside the Pascal 
Data Area. This is necessary in order to communicate with 
the Macintosh Operating System. 

WARNING: The use of these intrinsics should be restricted to 
use in systems and application programs that must do unusual 
pointer manipulation or must call the Macintosh Operating 
System. Many of these routines do little or no type checking, so 
their use could be error— prone. 

Besides the 16— bit representation of pointers used by UCSD 
Pascal for pointer variables, there are two other representations 
of pointers in UCSD Pascal, First, there is the "offset" 
representation of a pointer. An offset is a 16— bit signed integer 
that maps to a unique UCSD Pascal memory location. The 
representation of pointers as offsets is undefined. However, 
offsets have the following properties: 

• Higher pointer addresses are represented by higher offset 
values. Thus offsets may be compared to determine the 
ordering of their respective pointers. 

• A one word difference in pointer values is represented by an 
offset value change of 1. Thus offsets may be subtracted to 
determine the distance between two pointers in words. 
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The routines pointer and offset map between pointers and offsets. 

The second alternative pointer representation is the "absolute 
pointer". An absolute pointer is represented by a positive 
integer2 value which is a 68000 32— bit address. The absolute 
pointer is provided in order to pass data to and from the 
Macintosh Operating System. The routines absadr and reladr 
map between pointers and absolute pointers. 

Here are the pointer intrinsics: 

offset (P) is a function which returns the word memory offset of 
the pointer P. The parameter P can be any expression of a 
pointer type. The result of offset ( nil ) is undefined. 

pointer (O) is a pointer valued function which returns the 
pointer indicated by the offset O. The type of the result is the 
same type as the universal pointer constant nil. 

adr(V) is a pointer valued function which returns a pointer to 
the variable reference V. (V may not be a component of a 
packed array or a field of a packed record. The variable 
reference V may be a reference to a subcomponent of a variable, 
as long as that subcomponent is word aligned and occupies at 
least one word of storage.) The type of the result is the same 
type as the universal pointer constant nil . 

ptrinc (P,N) is a pointer valued function which returns the word 
pointer value obtained by adding the positive word offset N to 
the word pointer value P. The parameter P is an expression of 
any pointer type. The value of the parameter P may not be the 
same as the value of the pointer constant nil. The parameter N is 
an expression whose type is compatible with type integer or 
integer2. If the value of the parameter N is negative, the result of 
this function is undefined. The type of the result is the same 
type as the universal pointer constant nO. 
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NOTE: ptrinc is designed to be an efficient mechanism for 
stepping a pointer in short increments thru an allocated variable. 
If it is necessary to "back up" a pointer (i.e. add a negative 
offset) this can be done using offset and pointer . 

absadr(P) is a function which returns the absolute address of the 
word pointed to by pointer expression P. The result is undefined 
if P is the pointer constant nil. 

reladr (A) is a pointer valued function which returns a pointer to 
the word at the absolute address A. The result is undefined if the 
absolute address A is odd, or is not in the range of addresses that 
can be represented by a pointer. The type of the result is the 
same type as the universal pointer constant nil. 

derefhnd (A) is an integer2 valued function which returns the 
absolute address of the word pointed to by the Macintosh handle 
A, (A handle is an abolute pointer to another absolute pointer 
called a "master pointer." The function derefhnd returns the 
low order three bytes of the master pointer.) 

locate(V) is an integer2 valued function which returns the 
absolute address of the variable reference V. (V may not be a 
component of a packed array or a field of a packed record. 
The variable reference V may be a reference to a subcomponent 
of a variable, as long as that subcomponent is word aligned and 
occupies at least one word of storage.) The construction 
locate(V) is equivalent to absadr ( adr (V)). 

An alternative form of locate, locate (PROC, N), returns the 
absolute address of a PME entry— point which will cause 
activation of the routine specified by the procedure or function 
identifier PROC. The parameter N is an integer expression 
which specifies the number of the PME entry— point to be 
associated with the routine PROC, N must be in the range 1 to 
9. (PME entry— point is reserved for use by the Runtime 
Support Library.) The association of the entry— point with 
PROC remains in effect until a subsequent locate operation uses 
the same entry— point. The entry— point may only be called 
during the execution of an assembly language routine or during 
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an in—line procedure calL 

absmove(SRC,DEST,NBYTES) is a procedure that moves 
NBYTES of data from SRC to DEST. SRC and DEST are 
absolute addresses^ NBYTES is an integer2 expression. The 
action performed by absmove is equivalent the action of moveleft 
intrinsic, except that it can move data that is outside the Pascal 
Data Area, absmove is often used to move data into the Pascal 
Data Area so that it can be manipulated in a Pascal variable. 



32 -bit absolute address 



reladr 



absadr 



"\ locate 



16-bit pointer 



^4r 



variable 
refereace 



offset 



pointer 



I6~bit Offset 



Figure 4—1. Pointer Intrinsics. 

For more information on use of these pointer intrinsics, see the 
examples in the MACINTOSH INTERFACE chapter. 

Pmachine Intrinsic 

This section describes the pmachine intrinsic. The pmachine 
intrinsic allows you to generate in— line p— code. Its primary use 
is for performing tasks which the compiler does not ordinarily 
allow. In— line p— code can be useful in very low--level system 
programming. To use pmachine , you must understand the 
p— code operators described in the P— MACHINE 
ARCHITECTURE chapter. 
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The use of pmachine is discouraged for the following reasons: 

1. In some cases, the p— codes you specify are altered by the 
compiler at compile time, producing unpredicatable results. 

2. Software written with pmachine is often less maintainable 
than other software. 

3. Software written using pmachine may be incompatible with 
future UCSD Pascal environments. 



WARNING: Absolutely no protection is provided by this 
intrinsic or the system; use it with EXTREME CAUTION. 

The following example shows the form of a call to pmachine : 



The parameters to pmachine are a list of one or more 
p— Machine— items. A p— Machine— item describes a portion of 
p— code, and causes one or more bytes to be generated. 

The following list describes the four varieties of 
p— Machine— item: 

1. p—code syllable: The simplest item is a scalar constant. This 
item produces a single p—code. If the constant is less than 
255, the constant is the p—code. If the constant is greater 
than or equal to 255, a two byte p—code is generated 
consisting of a byte containing the value 255 followed by a 
byte containing the value (constant— 255). 

2. Expression value: If the item is an expression enclosed in 
parentheses, then a p—code sequence is generated which will 
compute the value of the expression and leave it on the stack. 
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3. Address reference: If the first token of the item is a caret {"), 
then the item is the specification of a variable, and p—code is 
generated which leaves the address of that variable on the 
stack. (The generated address is a pointer value, not an 
absolute address.) 

4. Indirect store of pointer value: If the item consists of the 
Pascal assignment symbol, :=, the compiler is directed to 
generate code which accomplishes the storing of a p— Machine 
pointer value on the top of the stack into the pointer variable 
pointed to by a second pointer value on the stack (see the 
explanation below). 

Given the following declarations: 



cons-t 

STO « 196^ 

REC a record 

FIRST , SECOND : i nt.«g«r | 
mr%d ; 
RECP « -RECj 

VECTOR t • r r ay [0 o . 9] of RECP j 
Is in-begeri 



pmach I n^C" VECTOR [S3 ".FIRST, (1*1), STO) j 



would cause the square of I to be stored in the first field of the 
sixth element of the array VECTOR. 

The fourth type of p— Machine— item is a syntactic mechanism for 
directing the compiler to generate the correct p—code sequence 
for an indirect store of a p— Machine pointer value regardless of 
pointer size. 

The following pmachine construct illustrates the old way of 
storing a pointer value: 

pm«ch 1n«(* VECTOR [0] , "MYREC, STO) j 
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T^^ pniachine construct in the example pushes the address of 
VECTOR[0] onto the stack; pushes the address of the variable 
MYREC onto the stack; and finally uses the p— Machine STO 
instruction to store the pointer into VECTOR[0]. 

The following example shows how this same operation could be 
coded in a manner independent of the size of p— Machine pointer 
values: 

pmaeh ineC* VECTOR [0] , -^MYREC, :=) ; 



The appearance of the Pascal assignment symbol, :=, as a 
p—Machine—item causes the Pascal compiler to generate the 
p— Machine STO instruction. 

NOTE: Always use the assignment symbol syntax to store 
pointer values into variables. This keeps your software 
independent of the size of p— Machine pointers. Also, DO NOT 
use the assignment symbol syntax to store anything other than 
pointer values; otherwise, your software may be invalidated by 
future UCSD Pascal implementations in which pointers are larger 
in size than a single p— Machine word. 

Sizeof Intrinsic 

The sizeof intrinsic has been enhanced in two ways. First, you 
may supply an optional units field, which allows you to select the 
units in which sizeof is to return the size. Second, you may 
supply optional tag fields, which allow sizeof to calculate the size 
of a particular variant of a record. 

The syntax for sizeof is as follows: 

"sizeof" " C (type- idon-t I f »«r j variable) 

I " , *• unl-ba -C ",*• caae-conatan'b}' ] *•) * 
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The optional UNITS parameter is an integer constant that 
specifies the units in which the size of the type or variable is to be 
returned. If UNITS is omitted, a default value of 8 (the number 
of bits in a byte) is assumed. The units specification is a number 
of bits. If the size of the specified type or variable is N bits, the 
value returned is obtained by the following formula: 

(N ^. UNITS - 1) div UNITS 



The UNITS parameter may be followed by a list of tag field 
values that select a specific variant of a record type. The syntax 
and rules used for the specification of a variant are the same as 
for the standard procedure new . 

The sizeof intrinsic may be used to determine the size of the 
actual parameter which corresponds to a formal conformant 
array parameter. When sizeof is used for this purpose, the 
compiler generates code to calculate the size of the actual 
parameter at runtime. In all other situations, the result is a 
constant value calculated by the compiler at compile time. 



The following examples illustrate the various forms of the syntax 
for sizeof: 



byt« 



m'l zmof 


\^] 




Rm-burnm 


»12« of variable V 


8 n 


m 1 zmof 




R«-feyrn» 


m 1 zm of typm T i n fe 


>y^< 


9 1 zmof 


(V, 


1) 


Re-feurn* 


a 1 z« of V In b 1 ta . 




8 1 Z®Gf 


sv. 


8) 


R«*teurn« 


m'izm of V in bytxss . 




■m 1 ,z«of 


<v. 


16) 


R«'turf»« 


ai2« of V in worda. 




■Mi zmof 


hi 


8, Tl 


, T2, .., 













Rm^urnm 


a 1 ze of t.h« ap«c « f 1 


ed 








^mv 1 mnh 


of -thm p«»eor*d hypm 


or 








variable R tn byi>«is . 




"S 1 zmof 


<p- 


.ACX3, 


16) 












R«^yrrt» 


m\zm of "th« varlabl 


m 








P-.A[X3 


in worda. 





The following example also illustrates the use of tag fields in 
sizeof: 



t>yp« 

R ss r«cord 

Fl s I n^msmr j 

emmm HAS MOR£ THINCS: bootaan of 
fala«i""Oi "^ 
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"true: (F2 , F3 : i ntogor) ; 
end ; 
v«r 

I: iiTbegarj 

V: R; 

P: -R', 
beg I n 

new (P, fa I se) ; 

V.Fl :s O; 

V.HAS MORE THINGS :« fal«e; 

movelef -bCVy P", aizeofCR, 8, false)); 
end . 



'^^^ nioveleft call moves only the Fl field of R, because the tag 
field of sizeof selected the false variant of R, which contains no 
additional fields. 



IN-LINE PROCEDURES AND FUNCTIONS 

UCSD Pascal has an alternative form of an external procedure 
or function declaration that allows you to gain immediate access 
to the Macintosh Toolbox routines. This form of external 
routine declaration is called an "in—line" routine. The syntax for 
declaring an in— line routine requires that you follow the reserved 
word external in your declaration by an integer constant 
enclosed in parentheses. The integer constant specifies the 
Macintosh "trap" instruction for the routine you wish to call. 
This syntax is illustrated by the following example: 

procedure Ge-tMouaeC mouaeLoc: Poin-tP^r ); 
ex-ternal (-22158) ; <A972> 



The example shows the declaration of the interface to the 
Macintosh Event Manager GETMOUSE routine, which is 
accessed by executing the trap instruction A972 (hexadecimal). 
^^^ integer constant —22158 is the decimal value equivalent to 
A972. (UCSD Pascal does not allow you to specify constants in 
hexadecimal.) 

When an in— line routine is called, the compiler generates code to 
pass the indicated parameters on the stack and then generates a 
special p— code which causes your program to execute the 
Macintosh machine instruction you have specified. 
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When you declare in— line routineSj you do have to make sure 
that the number and types of the parameters are correct for the 
Macintosh routine you intend to calL It is also crucial that the 
function result type (if any) and the trap instruction number be 
correct. See the MACINTOSH INTERFACE chapter for detailed 
information about interfacing to the Macintosh Toolbox routines. 

Unlike ordinary external routines, in— line routines may be 
declared within the interface section of a unit. Thus units can 
be used to organize collections of Macintosh Toolbox interfaces 
into manageable packages. This is precisely what was done to 
create the Macintosh Interface listed in Appendix A. 



SELECTIVE USES DECLARATIONS 

A selective uses declaration is a special form of the UCSD Pascal 
uses declaration that allows a client of a unit to select only 
those declarations that it needs from the interface section of the 
unit. (A client is a program or unit that uses another unit.) 
Selective uses declarations have two primary purposes. First, 
the client can better document which parts of a unit it is using 
by only selecting the pertinent declarations. Second, by only 
selecting declarations that are needed, symbol table space is 
conserved, so larger programs may be compiled. 

Declarations from the unit are selected by listing the appropriate 
identifiers in parentheses after the unit name. The following 
defines the complete syntax of a uses declaration. 

un r-fe— 1 cf«nib I f i4Sr s* id^n^ttf t«ir . 

1 den-fe I f i<»r- 1 1 a-b « ^ id«fi%ff1«i" y . 



A selective uses declaration consists of a simple uses declaration 
followed by a list of one or more identifiers enclosed in 
parentheses. Each of the identifiers in the list must be defined in 
the interface section of the unit being used. If a selected 
declaration is not present in the interface section, a syntax error 



4-~26 1200301:04B 



SELECTIVE USES DECLARATIONS 

results. 

Here is an example of a selective uses declaration: 

uses MYUNIT (A^CONST, VARl , VAR2 , MY^ROUTINE) ; 



A selective uses declaration specifies that only those declarations 
whose identifiers are listed are imported from the unit. The 
compiler first compiles the interface text for the unit, then 
discards the portions of the symbol table that describe 
declarations which were not selected. Thus, only the symbol 
table entries for the selected declarations are retained in the 
symbol table. The net result is a considerable savings in symbol 
table space when a client only requires a few declarations from a 
unit whose interface section is large. This makes it possible to 
compile larger programs than would otherwise be possible 
without selective uses. 

While the primary advantage of the selective uses declaration is 
that the compiler's symbol table need not contain unnecessary 
declarations, there are other advantages as well. 

First, a selective uses declaration can be a valuable 
documentation aid. The selective uses makes it easy to identify 
the specific declarations that a client needs from the unit. 

Second, a selective uses declaration can remedy situations where 
there is a name conflict between units. This is done by not 
selecting one of the colliding declarations. 

For example, suppose your program has a procedure called 
NEXT _ LINE, and you decide to use a unit that also declares 
NEXT _ LINE in its interface section. If you try to compile 
without a selective uses, you will get the syntax error 
"lOlddentifier declared twice". You can avoid this situation by 
using a selective uses declaration to select only the identifiers 
you need, thereby avoiding the conflict with NEWSLINE. 
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WARNING: Despite the advantages of selective uses 
declarations, there are two anomalies which you should be aware 
of: 

L You must still have enough memory to compile the interface 
sections of the units that you use. Only after the interface for 
the unit is fully compiled does the compiler eliminate the 
declarations which are not selected. 

2. Because selective uses declarations can be used to correct 
conflicts due to multiple declarations of the same identifier, a 
client which contains selective uses declarations may not 
compile successfully if the selective uses declarations are 
changed to simple uses declarations. 

Here are the rules for inclusion of identifiers in a selective uses 
clause: 

• If a selected declaration is not present in the interface section 
of the unit, a syntax error is issued by the compiler. 

• Many identifiers do not need to be named explicitly in the 
selective uses list if they are referred to directly or indirectly 
within a selected identifier. For instance, field identifiers of a 
record are automatically included. An exception is that the 
names of type identifiers are never included. 

The following is an example of selective uses. 

yn»^ TOOLS I 

ALPHA « p«ck«d array [O.. 7] of char: 

SYM^TYPE « (BAD SYMBOL, IDENTIFIER, OPERATOR) j 



SYM REC P » *SYM REC| 
SYWREC""* r«corda 

NAMES ALPHA; 

LLINK,RLINKs SYM REC P} 

END I " " 

function CLASSIFY (NAMEs ALPHA) s SYM TYPE| 
< C I a«a if i«a a aymbo I as BAD SYMBOL, ""IDENTIFIER 
or OPERATOR o > 

procedure ENTER (NAMEs ALPHAj var P: SYM REC P) ^, 

<( Crmm^Sfma a aymbo t ^afei« record w 1 i^h aymEo i l^AME 
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mnd intf-bal Is It) In -the symbol 'table, y 
i mp I ementat I on 
end . 



TOOLS is a unit with two procedures that manipulate a symbol 
table. Some clients of the unit call the procedure CLASSIFY 
while others call ENTER. If a client does not call ENTER, then 
the identifiers SYM_REC_P, SYM_REC, NAME, LLINK and 
RLINK are not needed. Likewise, if a client does not call 
CLASSIFY then the identifiers SYM^TYPE, BAD _ SYMBOL, 
IDENTIFIER and OPERATOR are not needed. 



The use of selective uses is demonstrated by two programs that 
are clients of unit TOOLS. Here is the first client of TOOLS: 

program EXAMPLE^A ; 

uses <$U TOOLS. CODE> TOOLS (CLASSIFY , ALPHA) ; 

vap 

Ss ALPHA I 

beg 1 n 

S:ss 'NewSymi** ' I 

if CLASSIFY (S) = BAD^SYMBOL^ 

t>hen wr I t>e I n (''the symbol Is bad'); 



EXAMPLE _ A selects declarations for CLASSIFY and ALPHA 
from TOOLS. The following identifiers are imported from 
TOOLS: CLASSIFY, ALPHA, BAD_SYMBOL, IDENTIFIER, 
OPERATOR. The first two were specified explicitly in the 
selective uses declaration. The last three were included 
automatically because they are the constants of the scalar type 
SYM_TYPE, which is the function result type of CLASSIFY. 
Note that SYM_TYPE was not included, because indirectly 
referenced type names are never included. That is why 
EXAMPLE _ A needed to specify type ALPHA explicitly in the 
selective uses declaration. 

As expected, identifiers ENTER, SYM_REC_P, SYM_REC, 
NAME, LLINK and RLINK were not included, since none of 
them were even indirectly referenced. 
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EXAMPLE _B is a second client of TOOLS: 

program EXAMFLE_B| 

ummm <$U TOOLS. CODe> TOOLS (ENTER, SYM^REC^P) ; 

REC^Ps SYM_REC_P; 

ENTER (*NewSyfn***,REC P) ; 

If REC^P'^.NAME <> *N«wSyfn**' 

1ih«n ""w r i -to I n ('sy mbo I no"b entered*) j 
«nd « 



EXAMPLE^B specifies identifiers ENTER and SYM_REC_P 
in the selective uses declaration. The following identifiers are 
imported from TOOLS: ENTER, SYM_REC_P, NAME, 
LLINK, RLINK. As in EXAMPLE _ A, the first two identifiers 
were named explicitly in the selective uses declaration^ The last 
three identifiers were included automatically because they are 
fields of SYM^REC, which is indirectly referenced by both 
ENTER and SYM_REC_P. No other identifiers are imported 
from TOOLS. 



CONFORMANT ARRAYS 

This section describes conformant array parameters. 
Conformant arrays are array parameters in which the array 
bounds are not known until the procedure is called. Different size 
arrays of the same index type and base type may be passed on 
each calL The size of the array is determined by the upper and 
lower bound parameters, which are automatically passed to the 
routine. 

Since the rules for using conformant arrays are a bit complicated, 
we will start with a small example. Here is an example 
conformant array parameter: 

procedure A(v«r Xs ar ray £L0 . «HI : i nt^eger] of mt»eger) | 
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The occurrence of "array [...] of ..." signifies that x is a 
conformant array parameter. This syntax should be familiar 
from array declarations. However, instead of constant array 
bounds this array definition contains bounds parameter 
declarations (HI and LO in the example). 

In the example, X is a conformant array parameter that may 
take any array of integers indexed by integers as a parameter. 
When procedure A is called, the bounds parameters LO and HI 
are set to the constant bounds of the actual parameter. Here is 
an example of two calls to A: 



B: •rrayr0..9] of in-beger; 
C: array [-4. .20] of integer; 

beg 1 n 

ATB]; < LO IS 0, HI U 9 > 

ACCJj < LO i« -4, HI la 20 > 

end; 



Conformant arrays make it possible to write procedures that 
perform the same function on an assortment of array sizes. 
Consider the following example: 

program CONFORMANT^ARRAYS ; 
var "* 

Xs arrayri..lO] of in-teger; 

Ys arra^[-100. .100] of integer; 

Xl,Yls integer; 

function SUM(A: array [LO . .HI : Integer] of Integer): Integer; 

I J RESULT: integer; 
beg i n 

RESULT s« O; 

for I s» LO to HI do 

RESULT :« RESULT * ATI]; 

SUM :« RESULT; 
end; <SUM> 

begl n 

«( Aaaume the arraya contain aome valuea. > 

XI :a SUM<X) ; 

Yl :« SUM(Y) ; 
end, <CONFORMANT ARRAYS> 



SUM is a general purpose function to calculate the sum of an 
integ;er array. Because the parameter is a conformant array 
parameter, SUM is able to calculate the SUM of any integer 
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array it is passed. The first time SUM is called, LO will be 1 
and HI will be 10. On the second call LO will be -100 and HI 
will be 100. The bounds parameters may be used in the 
procedure just as if they were normal integer parameters, except 
that you cannot assign anything to them or pass them as var 
parameters. The actual array parameter may be either a value 
or var parameter as desired. 

The syntax of a conformant array parameter definition is as 
follows: 



conf orinan't-cirr«y--«chema = 

packed-conf orfn«n"b-«rray-«ch«m« j 
unpack«d-conf orman^~array-«ch«n»a . 

pack«KJ-<jonformant.— array— ach^Mwa « 

"packed" "array" " f" » r»d«x-"byp#-«p«c i f i ca-bi on "] ' 
"of" typ#- iden-fcif ler . 

unpacked-conf orman-b-array-achema a* 

^mrrmy^ " [" i nd«»x*i}ype*'ap«»c i f'l ca'bi on 

{^ "l" ind«x»type-ap«c I f ica-fci on y "] " 
"of" ( type- identifier \ 

conformant— array~»chema ) 

I ndex-type— spec 1 f 1 cat I on as 

identifier ".." identifier "s" 
ord I na I -type— I dent i f ier . 



A conformant array may be multidimensional. A 

multidimensional conformant array is specified by separating 
multiple index type specifications by semicolons, or by declaring 
an array of an array. The symbol ";" is a short— hand notation 
for **] array of ["« Here is an example of a multidimensional 
conformant array parameter: 

procedure A (var Xt array [LOl . .HIl s Integer j 

L02..HI2s char] of integer); 



Note that only the last index component of a conformant array 
may be specified as packed. Thus, a two dimensional 
conformant array with a packed second component must be 
specified: 

procedure A (var Xs 

array [LOl. .HIl s integer] of 

packed array [L02 . oHI2 s char] of integer) | 
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The short cut version using the semicolon notation may not be 
used in this case. 

Any array that "conforms" to the conformant array parameter 
definition may be passed to the conformant array parameter. 
An array conforms if: 

1. It has the same base type as the conformant array. 

2. It has the same number of dimensions as the conformant 
array. 

3. The type of each index is compatible with the index 
components in the conformant array. 

4. The range of values of each index is within the range of the 
corresponding index type in the conformant array. 

5. The array's packing matches the packing of the conformant 
array. 

A conformant array may be passed to another conformant 
array parameter as long as the parameter is declared as a var 
parameter. This restriction is due to the fact that the size of the 
value conformant array parameter must be known at compile 
time in order to allocate temporary storage for a copy of the 
actual parameter. 

If more than one formal array parameter is named in an 
identifier list sharing the same conformant array definition, the 
actual parameters passed to those formal parameters must have 
the same bounds. Standard Pascal requires that the actual 
parameters be declared with the same type identifier. UCSD 
Pascal is not so strict. Consider the following example. Some of 
the calls are illegal: 



program MORECONFORMANTARRAYS; 

var 

A,Bs array [1 . .10] of in-fceger; 
C: array [0. .99] of jn-teg«r| 
D: array tl..lOj of intvager; 



procedure SWAP(var X.Ys 

array lLO . .HI s in-bager] of in"fc«g«r); 
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I J TEMP s 1nt-«ger| 
b«9 I n 

for I :« LO to HI do 



EMP 



end ; 
end I <SWAP> 

beg I n 

<(A8sum«» -^he arrays have some values.^ 

" "^^ rLeaalo> 

(l I Tega I --a and c have different^ bounds. }> 
(OK I n UCSD Pasca I , 



SWAP (A, B) 
SWAP (A, C) 
SWAP (A, D) 



Illegal in S'tandard Pascal. > 
ITAF" 



^nd . <MORECONFORMANtARRAYS> 



Interface Conformant Arrays 

UCSD Pascal supports a variant of the conformant array 
parameter called an inteFface conformant array that is even 
more flexible than the conformant array in the type of 
parameters it will accept. The interface conformant array is 
used primarily in system programming, where the need to write 
procedures that operate on arbitrary types is common. 

WARNING? Because Interface conformant arrays skirt all the 
type checking inherent in Pascal, they should be used only when 
necessary and with care. 

An Interface conformant array is declared just like a 
conformant array, except that the reserved word interface 
appears in front of the declaration. The following are some 
restrictions on Interface conformant arrays. 

• An interface conformant array must be a var parameter. 
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• An interface conformant array must be one dimensional. 



Here is an example of an interface conformant array parameter 
declaration: 



procedure A(var X: 

Interface array [LO . .HI : i ht>eger] of i n-beger) ; 



Here are some calls to the procedure: 



var 
P% aet of char; 
Q: packed a r ray [0.. 100] of (red , green , b I ue) ; 

beg I n 
land } 



As this example shows, an interface conformant array will 
accept absolutely any type of variable as an actual parametefo 
Within procedure A, both P and Q are looked at as if they were 
each an array of integers. 

The bounds parameters in an interface conformant array 
behave somewhat differently than in a conformant array. First, 
the low bound parameter is always set to zero. Second, the high 
bound parameter is set to the lowest value such that the 
interface conformant array will access all of the actual 
parameter. How large the high bound is set depends on the 
storage size of the actual parameter and the base type of the 
interface conformant array. 

The following example shows how interface conformant arrays 
might be used in order to calculate a check sum of various pieces 
of data: 



program SHOWINTERFACECONFORMANTARRAYS j 
type 

BYTE » O. .2SS| 
vmr 

BLOCKS packed array [0. . 511] of 0. .255) 
As array £1.. 10] of int-eger; 
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Is Inliegerj 

function CHECKSUM 

(var Xs I n"t«rf ace packed arrayCLcoHs 1 n'feeger] of 
BYTE ) J int>«gapj 
var 

1 1 SUM: In-teger; 
beg I n 

SUM s« 0| 

for I s= L t.o H do 
SUM s« SUM -► XCI] ; 

CHECKSUM :« SUMj 
end', <CHECKSUM> 

beg I n 

•{Assume -the variables have some useful values.}- 

writeln(CHECKSUM<S)) J < L « 0, H s 80 > 

write In (CHECKSUM (BLOCK)) J < L « O, H = Sll > 

write In (CHECKSUM (A)) I < i- * <>> H a 19 > 

write In (CHECKSUM (I)) I <L«0. H = l> 

end . <SHOWINTERFACEC0NF0RMANTARRAYS> 



COMPILER OPTIONS 

You may direct some of the compiler's actions by the use of 
compiler options embedded in the source code. Compiler options 
are a set of commands that may appear within "pseudo 
comments/' and like any other Pascal comment, they are 
surrounded by either of the following pairs of delimiters: 



parentheses/asterisks (* x>> 

©races x > 



The only difference is that a dollar sign ($) immediately follows 
the left—hand delimiter, for example: 

<Si+> 

?*tU MOLD. CODE*) 
<SI+,S-,L'f> 



There are two kinds of compiler options: "switch" options and 
"string" optionSo A switch option is a letter followed by a 
plus (+), minus (— ), or a caret ("). A string option is a letter 
followed by a string. (In the examples shown above, the second 
one is a string option; the others are switch options.) A pseudo 
comment may contain any number of switch options (separated 
by commas), and zero or one string options. 
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NOTE: If a string option is present in a pseudo comment, it 
must be the last option. The string is delimited by the option 
letter and the end of the comment. Also, if the pseudo comment 
uses the parenthesis/asterisk delimiters, (* and *), the string in 
the string option must not contain an asterisk. 

Some options may appear anywhere within the source text. 
Others must appear at the beginning of the file (before the 
reserved word program or unit). 

Switch options are either "toggles" or "stack" options. If a 
switch option is a toggle, a plus (-f) turns it ON, and a minus (— ) 
turns it OFF. The options 'I,' 'L,' and ^R' are stack options, as 
are the conditional compilation flags (see below). 

With each stack option, the current state, either plus (-f) or 
minus (— ), is saved on the top of the stack, which can be up to 15 
states deep). The stack may be "popped" by a caret (") thus 
enabling the previous state of that option again. If the stack is 
"pushed" deeper than 15 states, the bottom state of the stack is 
lost. If the stack is popped when it is empty, the value is always 
minus (—). 



<*!-> 


. . current 


va 


lue 


1 a 


>-> 


<*!♦> 


. . currmnt 


va 


ue 


» a 


* -f * 


<si-> 


. . curr«n"t 


va 


ue 


t a 


*-* 


sr-i 


. . curreirb 


va 


ue 


ta 


* + * 


. . current 


va 


ue 


\m 


*~* 



e I a '-* — no I/O checking 



-' again 



^thla waa the default) 
(the atack *i a now empty) 



The individual compiler options are described below in 
alphabetical order. If you do not use any compiler options, their 
default values will be in effect. Here are the default values for 
the compiler options: 



These remain in effect unless you override them. The settings of 
the U and N options should not be changed. 
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Conditional compilation is also controlled by compile time 
options as described below. 

$B — Begin Conditional Compilation 

$B is a string option. It starts compilations of a section of 
conditionally compiled source code. See the section on 
conditional compilation, below. 

$C - Copyright Field 

$C is a string option. It places the string directly into the 
copyright field of the code file's segment dictionary. The purpose 
of this is to have a copyright notice embedded in the code file. 

$D — Conditional Compilation Flag 

There are two $D compiler options. This one is a string option. 
It is used to declare or alter the value of a conditional 
compilation flag. See the section on conditional compilation, 
beloWe 

$D — Symbolic Debugging 

The second $D compiler option is a switch option. $D+ turns on 
symbolic debugging information. $D— turns off symbolic 
debugging information. The default is $D— . 

$E — End Conditional Compilation 

$E is a string option. It ends a section of conditionally compiled 
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source code. 

$1 - I/O Check Option 

There are two options named by $1. The first is a stack switch 
option (lOCHECK). 

$I-f-, which is the default, instructs the compiler to generate code 
after each I/O statement in a program. This code verifies, at 
runtime, that the I/O operation was successful. If the operation 
was not successful, the program terminates with a runtime error. 

$1— instructs the compiler not to generate any I/O checking code. 
In the case of an unsuccessful I/O operation, the program 
continues. 

When you use the $1— option, your programs should specifically 
^®s^ ior^sult when there is the chance of an I/O failure. If $1— is 
used and you don't test ioresult , the effects of an I/O error are 
unpredictable. 

$1 --^ INCLUDE File 

This is a string option. The string (delimited by the letter T and 
the end of the comment) is interpreted as the name of a file. If 
that file can be found, it is included in the source file and 
compiled. 

<$I PR0G2> 



The example shown above "includes" the file PR0G2 into the 
compilation unit's source code. 

If the attempt to open the include file fails, or if an I/O error 
occurs while reading the include file, the compiler reports a fatal 
syntax error. 
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Include files may be nested up to a maximum of three files deep. 

NOTE: Any leading spaces in a file name are discarded by the 
compiler. On the Macintosh, trailing spaces are significant in file 
names. Thus it is important that the end of comment delimiter 
be immediately adjacent to the last character in the file name. 
Furthermore, if a file name begins with a plus (+) or minus (—), 
a space must be inserted between the letter 1' and the string. 
For example: 



$L — Compiled Listing 

$L is a stack option. You may use $L option either as a toggle 
switch option or as a string option. When used as a toggle, it 
turns the listing ON or OFF at that point in the source text. 
When used as a string option, it indicates the name of the listing 
file. 

When used as a toggle, $L-f turns the listing ON and $L— turns 
it OFF. Using these options, you can list only parts of a 
compilation if you wish. The default for the toggle is $L— if you 
have not named a listing file using the compiler prompt or by 
using $L with a string option. The default value is $L+ if you 
have named a listing file in either of these ways. No matter 
which way you name the listing file, you can switch the listing 
ON or OFF by using $L+ or $L-. 

If you do not specifically name a listing file and $L+ is in effect, 
the compiler writes to the file *SYSTEM.LST.TEXT. 
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$N — Native Code Generation 

This is a switch option. $N-f- outputs compiler information 
which allows native code generation to take place. $N— doesn't 
output this information. The default is $N— . Until such time as 
a Native Code Generator is available for this version of UCSD 
Pascal, you should not use $N-f-. 

$P — Page and Pagination 

The compiler can place page breaks in the compiled listing. It 
does this so that listings sent to the printer break across page 
boundaries. A form feed character (ASCII FF) is output every 66 
lines if $P-f is in effect (this is the default). If you don't want 
this, use $P— . 

You can cause a page break at any point in a compiled listing by 
using the $P option without a plus or minus sign. 

$Q - Quiet 

This is used to suppress the compiler's standard output to the 
console. $Q-I- causes the compiler to suppress this output and 
SQ— causes it to resume outputting status information. If you 
have specified $Q-f and are obtaining a listing, the compiler does 
not pause when syntax errors are reported. 

$R — Range Checking 

$R is a stack switch option. The default value, $R4-, causes the 
compiler to output code after every indexed access (for example, 
to Pascal arrays) to check that it is within the correct rangeo 
This is called range checking. The value $R— turns range 
checking off. 

Programs compiled with the IR— are slightly smaller and faster 
since they require less code. However, if an invalid index occurs 
or a invalid assignment is made, the program isn't terminated 
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with a runtime error. Until a program has been completely 
tested, it is suggested that you compile with the R-H option left 
on. 

$R2 and $R4 - Real Size 

$R2 causes the code file's floating point arithmetic operations to 
be performed with two word (32— bit) precision. $R4 causes four 
word (64— bit) precision. The default and only supported real 
size for the Macintosh version of UCSD Pascal is four word reals. 
Therefore, you cannot use the $R2 directive, and never need to 
use the $R4 directive. . If you do use the $R4 directive, it must 
occur before the first non-comment symbol in the compilation 
unit. 

$T - Title 

$T is a string option. The string becomes the new title of pages 
in the listing file. 

$U — Use Library- 
Two options are indicated by $U. One is a string option (Use 
Library). The other, described below, is a toggle switch option 
(User Program). 

With the Use Library option, the string is interpreted as a file 
nanie. This file should contain the unit(s) that your program is 
about to use. If the file is found, the compiler attempts to locate 
the unit(s) that it needs for the subsequent uses declarations. If 
a particular unit isnH found there the compiler issues a syntax 
error. 

If a client (program or unit) contains uses declarations but no 
$U option, the compiler looks for the used units in the units (if 
any) that were compiled previously in the same compilation 
source file as the client. 
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The following is an example of a valid USES clause using the $U 
option: 

USES UNIT1,UNIT2, < Found in currant library > 
<$U A.CODE> 

UNITS, < Found in A. CODE > 
<$U B.LIBRARY> 

UNIT4, UNITS; < Found in B. LIBRARY > 



NOTEj Any leading spaces in a file name are discarded by the 
compiler. On the Macintosh, trailing spaces are significant in file 
names. Thus it is important that the end of comment delimiter 
be immediately adjacent to the last character in the file name. 

$U — User Program 

The $U~- directive is used to specify that you are compiling a 
Runtime Support Library unit. This is how the Runtime Support 
Library units are compiled using the set of reserved unit names. 
$U— also sets $R— and $1—. You should not use $U— , and you 
never need to specify $U-f . If you do specify $U-f, it must 
appear before the heading (that is, before the reserved word 
program or unit). 



CONDITIONAL COMPILATION 

You may conditionally compile portions of the source text. At 
the beginning of a program's text you can set a compile time 
flag which determines whether or not the conditionally compiled 
text will be compiled. 

In order to designate a section of text as conditionally compilable, 
you must delimit it by the options $B (for begin) and $E (for 
end). Both of these options must name the flag which determines 
whether the code between them is compiled. The flag itself is 
declared by a $D option at the beginning of the source. $D 
options may be used at other locations in the source to change 
the value of an existing flag. 
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Here is an example: 

<S0 OCBUG> <d«ciar«»8 OEBUC and seta 1 1^ TRU£> 
program SIMPLE; 
b«g 1 n 

<SB DeBU<3> <if DEBUG \m TRUE, 

•th 1 a aectson 'i m compiled^ 
wr 1 "te I n ( *There ta a bug.*)| 
<SE OEBUG> <this ends the aec-bion> 

<$B DEBUQ-> < if DEBUG is FALSE, 

-this aection la comp i led}> 
wr I tel n(*No'th mg haa failed.^; 
<$E DE8UG> 

end*<SIMPLE>. 



Each flag in a program must appear in a $D option before the 
source heading. The name of the flag follows the rules for Pascal 
identifiers. If the flag's name is followed by a minus (— ), that 
flag is set false. The flag may be followed by a plus (-+•), which 
sets it true. If no sign is present, the flag is true. The flag's 
name may also be followed by a caret (") as shown below. 

The state of a flag may be changed by a $D option which appears 
after the source heading, but the flag must have first been 
declared before the heading. 

The $B and $E options delimit a section of code to be 
conditionally compiled. The $B option may follow the flag's 
name with a minus (—), which causes the delimited code to be 
compiled if the flag is false. In the absence of a minus (— ), the 
code is compiled if the flag is true. The flag's name may also be 
followed by a plus (+) or a caret C"); these are ignored. In a $E 
option, the flag's name may be followed by a plus (+), minus (—), 
or a caret ("); these symbols are ignored. 

The state of each flag is saved in a stack, just as the state of a 
stack switch option is saved. Thus, using a $D option with a 
caret (") yields the previous value of the flag. Each flag's stack 
may be as many as 15 values deep. If a 16th value is pushed, the 
bottom of the stack is loste If an empty stack is popped with a 
caret (^), the value returned is always false. 
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If a section of code isn't compiled, any pseudo comments it may 
contain are ignored as well. 

<S0 DEBUG-> <dec I a res DEBUG and ae^a it FALSE> 
program SIMPLE; 

'^^<SD DEBUG+> <chang«a DEBUG to TRUE> 

<$B DEBUG> <if DEBUG is TRUE, this aection la 

comp I i ed}> 
wp 1 "bo I n ( *Ther« is a bug.*)| 
<SE DEBUG> <thia ends the aection> 

<SD DEBUG*> <reatopea previoua value of DEBUG> 



•{..^in this caae, FALSE> 



<$B DEBUG-> < if DEBUG 'im FALSE, 

th I a aection la compi led}* 
wr I teln (*No-bh ing has failed.*): 
<$E DEBUG> 

end"<SIMPLE>. 
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5 

MACINTOSH INTERFACE 



This chapter describes the UCSD Pascal interface to the 
Macintosh Operating System and Toolbox. Because it is so large 
and complex, the Toolbox is not described in full here. You are 
encouraged to reference the Macintosh technical guide, 
Inside Macintosh^ for a complete description of the Toolbox. The 
intent of this chapter is to describe the differences between the 
UCSD Pascal interface to the Toolbox and the Lisa Pascal 
interface described in Inside Macintosh, 

Throughout this chapter "Toolbox" will refer to both the 
Macintosh Operating System and the Macintosh Toolbox. As far 
as the interface units are concerned, there is little difference 
between Toolbox routines and Operating System routines. 

The Toolbox is a very complex piece of software. No one can be 
expected to learn how to use it in one reading, or even a few 
readings. The best thing to do is to learn the Toolbox in pieces, 
writing small programs as you go. 

The most important part of this chapter (as well as the most 
complicated) is the section on DATA CONVENTIONS. You 
should probably skim this section on your first reading, then refer 
to it as necessary while writing programs that use the Toolbox 
interface. 

Overall, the UCSD Pascal Toolbox interface is quite consistent 
with Inside Macintosh, However, for various reasons there are 
some restrictions and omissions in the UCSD Pascal interface. 
These are described in DIFFERENCES FROM INSIDE 
MACINTOSH, 
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The UCSD Pascal Toolbox interface is also quite consistent with 
the organization of Inside Macintosh, In general, each manager 
described in Inside Macintosh corresponds to a unit bearing the 
same name. There are some differences in the organization, 
however. 

• There is a set of four "core" units that provide type 
declarations that are shared by the other units. In 
Inside Macintosh these declarations are included in the 
interface units themselves. Separating out some declarations 
saves having to use a whole unit where only some of its 
declarations are needed. 

• The file manager and device manager routines have been 
redistributed as follows. High level file and device I/O have 
been combined in a unit called FileMgr. Low level file and 
device I/O have been combined in a unit called PBIOMgr 
(Parameter Block I/O Manager). 

• The routines CountAppFiles, GetAppFiles, and ClrAppFiles 
have been moved from the Segment Loader to the OsUtility 
unit. There is no Segment Loader unit. 

The rest of this chapter is arranged as follows: 

HOW TO USE THE INTERFACE UNITS discusses making the 
interface units available to a program. 

DIFFERENCES FROM INSIDE MACINTOSH discnsBes how use 
of the Toolbox routines from UCSD Pascal differs from 
Inside Macintosh, 

DATA CONVENTIONS discusses issues regarding how Toolbox 
data is represented in UCSD Pascal. In particular, this affects 
how parameters are passed to the Toolbox routines. 

SPECIFIC TECHNIQUES contains a set of example 
programming techniques that are helpful when using the Toolbox 
interface. 
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EXAMPLE APPLICATION contains a complete small 
application that uses the interface units. 



HOW TO USE THE INTERFACE UNITS 

This section discusses how to use the Toobox interface units from 
a UCSD Pascal program. There are two issues to consider. 

1. How to make the interface sections of the units available at 
compile time. 

2. How to make the code of the units available at runtime. 



The use of units in general is discussed in The UCSD Pascal 
Handbook, This section focuses on the special considerations for 
use of the Toolbox interface units. 



Appendix A contains listings of the interface sections of the 
interface units. 



Compile Time Considerations 

The interface units are contained in the file Mac Interface on the 
disk UCSD Pascal 2. The Librarian utility can be used to 
examine this file. 

You make an interface unit available to your application through 
use of the uses statement. Often it is convenient to use the 
selective uses feature. Suppose you need to use the EraseRect 
and DrawChar routines from QuickDraw. Here is how you make 
them available. 

program APPLICATION; 

<$U UCSD Pa«cal 2 s Mac In'berfac©> 
MacCore, 
QDTypes , 
Qu iCKDraw (£ras«»Rec-t, DrawChar) | 
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In the above example, the $U compiler option is used to open the 
library file Mac Interface on the volume UCSD Pascal 2. The 
volume prefix would not be needed if the library file were on the 
same volume as the UCSD Pascal compiler (the default volume). 
If you will not be swapping disks when compiling, you may also 
use #1: (which specifies the internal drive) or #2: (which 
specifies the external drive) to specify volume locations. 

Nearly all of the interface units make use of other interface units. 
If one unit uses another unit within its interface section, you 
must include references to both units in your uses statement. 
The order of the units in the uses statement is important. In the 
example above, QuickDraw needs definitions from MacCore and 
QDTypes. Thus, they are both included in the uses statement 
before QuickDraw. QDTypes needs definitions from the MacCore 
unit, so MacCore is included before QDTypes. The selective uses 
declaration is discussed further in the PASCAL LANGUAGE 
chapter. 

Appendix A contains a table of dependencies among the interface 
units. This table should help you to figure out which units are 
needed by other units. The column called 'Compile Time 
Dependencies' contains codes that indicate the units that are 
required by each unit. 

The interface sections of the Toolbox interface units are very 
large. One of the problems with developing programs on a 
Macintosh with 128K bytes of memory is the lack of symbol table 
space while compiling. This can critically limit the size of a 
program that can be compiled unless steps are taken to conserve 
symbol table space. 

Here are the things you can do to conserve symbol table space. 
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• Use selective uses to prevent unused definitions from being 
kept in the symbol table. 

• Use the largest units with selective uses first, so that there is 
more symbol table space available while they are being 
compiled. 

• Divide your program into units to minimize the number of 
interface units needed by each unit. 

Here is an example of the first two points. Suppose you are using 
the Control Manager and QuickDraw. These require the use of 
MacCore, QDTypes and TBTypes. However, QuickDraw does 
hot need any definitions from TBTypes. Therefore, you should 
arrange the units this way. 



uses 

<$U #2sM«c Interfaco> 
MacCore, 
QDTyp««, 
Qu ickDrsw (...), 
TBTypes, 
Cntr IMgr(. . .) ; 



QuickDraw is much larger than the Control Manager, so it goes 
first. MacCore and QDTypes are used by QuickDraw so they 
must preceed QuickDraw. The Control Manager needs TBTypes 
in addition to MacCore and QDTypes. 

It is possible to do even better than this. By looking at the uses 
declarations of QuickDraw and the Control Manager (in 
Appendix A), it is possible to make selective uses with the 
auxiliary units. QuickDraw needs ail of MacCore and QDTypes, 
so nothing can be gained there. The Control Manager needs 
(GrafPort, GrafPtr, Point, VHSelect, FPoint, Rect, RectPtr) 
from QDTypes, and (EvtRecPtr, EventRecord, windowptr, 
windowhandle) from TBTypes. Therefore, the uses declaration 
could be made as follows. 



<$U #2: Mac Interface} 
MacCore, 
QDTypes, 
Qu ickOraw (...), 
TBTypes (Evt-RecPtr, EventRecord, w i ndowptr , 
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w I ndowhand f e) , 
Cntr IMgr<» . .) | 



You would add to the above uses statement any additional 
symbols your program requires from the QuickDraw and 
CntrlMgr units. This declaration makes optimum use of symbol 
table space. 

If you have used these methods^ and you still have trouble with 
running out of room while compiling, there is one other space- 
saving method that will help. 

• Use in—line Toolbox routines right in your application 
without including a unit. This method is explained in detail 
in the section SPECIFIC TECHNIQUES. 

Runtime Considerations 

At runtime you must make the interface units available to your 
program. This is done by using the Library Files list facility in 
the Set Options utility or by using the Librarian utility to 
combine the units with your program. The Set Options utility is 
described in the chapter GENERAL OPERATIONS. The 
Librarian utility is described in the chapter LIBRARIAN. 

Some of the interface units do not contain any code, and thus do 
not need to be included at runtime. The table in Appendix A 
indicates which units have code by a ^C^ in the column called 
Code. The interface units that contain code are bound together 
in a library called Mac Library on the disk UCSD Pascal 1. 

While you are developing and testing your program, we suggest 
that you use the Set Options utility to make Mac Library 
available to your program. This has the advantage that you can 
run the program immediately after compiling. When you 
complete the final version of the program, you should probably 
use the Librarian utility to include the interface units from Mac 
Library directly in your program. This makes the program self— 
contained, and reduces startup time. 
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DATA CONVENTIONS 

UCSD Pascal is a different dialect and implementation of Pascal 
than Lisa Pascal, so there are differences in the interface units, 
accordingly. Most of these differences stem from the differences 
in the implementation of the Pascal language. Some of these 
implementation differences are related to different 
representations for data types, while others are a consequence of 
the different storage allocation algorithms used in the two 
implementations. Also, parameter passing methods differ 
between the two implementations. 

An attempt has been made to provide Toolbox interface units 
whose interface is as close as possible to what is described in 
Inside Macintosh^ In particular, it is nearly always the case that 
an interface routine takes the same number of parameters in the 
same order as in Inside Macintosh. 

This section describes the data representation scheme used in the 
interface units. For information on the actual parameters of a 
particular routine in an interface unit, you must look at the 
description of the routine in Inside Macintosh and the declaration 
of the routine in Appendix A. 

Passing Parameters to the TooIBox 

Most of the ToolBox procedures in the Macintosh ROM were 
designed to work with the Lisa Pascal data and parameter 
passing conventions. In order to accommodate that interface, 
UCSD Pascal was extended to produce The MacAdvantages 
UCSD Pascal. The extensions that are important to the 
Macintosh interface units are: 
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• A new type, integer2 , was added to support 32— bit integers 
and addresses. 

• The intrinsics locate and absadr were added to allow 
- conversion from 18-~bit UCSD Pascal addresses to 32— bit 

Lisa Pascal addresses. 

• The intrinsic derefhnd was added to enable programs to 
dereference Macintosh Memory Manager handles. 

• The intrinsic absmove was added to allow programs to move 
data to and from the Pascal Data Area. 

• The new external procedure syntax external(...) was added 
to allow the UCSD Pascal compiler to generate in— line 
ToolBox calls in much the same way as the Lisa Pascal 
compiler. 



In order to call the ToolBox procedures it is important that you 
understand all of these features. They are all documented in the 
PASCAL LANGUAGE chapter. Most of these features are used 
in the example program, GROW, located at the end of this 
chapter. They are also discussed with respect to their use in 
calling the ToolBox procedures later in this chapter. 

The primary difference between UCSD Pascal and Lisa Pascal is 
that UCSD Pascal uses 16— bit addresses while Lisa Pascal uses 
32— bit addresses. This affects the way in which you pass 
parameters to most of the ToolBox procedures. For example, a 
var parameter must be passed as a 32— bit pointer value 
parameter. Any Lisa Pascal value parameter that is larger than 
32 bits must also be passed as a 32— bit pointer to the parameter. 

Where necessary, the interface units make use of what are called 
"substitution types" instead of types whose declaration exactly 
matches those of Inside Macintosh, For example, the following 
types are declared in the MacCore unit (which contains most of 
the basic substitution type declarations): 

MacPfer as in't<»9«ir2 j 
S-trlngP-br as M«cPi>r $ 
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MacPtr represents a 32~bit pointer, while StringPtr represents a 
32— bit pointer to a string variable. The StringPtr type is 
substituted in many of the interface unit procedures for the 
Str255 type that appears in Inside Macintosh, When you see 
StringPtr in a procedure declaration it means that you should be 
passing a 32— bit pointer to a string variable. Note that MacPtr 
and StringPtr types are the same type as inteser2 . Since the 
UCSD Pascal compiler will allow any integ^er2 value to be passed 
you must be careful to pass the correct value. 

The following sections discuss all of the data representation and 
parameter passing differences between Lisa Pascal and The 
MacAdvantage: UCSD Pascal. After you read these sections, 
study the GROW program source. By looking at GROW you 
should begin to see how the ToolBox routines are called from a 
UCSD Pascal program, 

UCSD Pascal Pointers vs Lisa Pascal Pointers 

Lisa Pascal pointers are 32— bit absolute addresses, while UCSD 
Pascal pointers on the Macintosh are 16— bit offsets from the 
68000 A6 register. This difference in pointer format between 
UCSD Pascal pointers and Toolbox pointers must be thoroughly 
understood in order to make use of the Toolbox interface. 

An absolute address is represented in the Toolbox interfaces by 
the substitution type integer2 . Two intrinsics are provided in 
UCSD Pascal to convert between pointers and absolute addresses: 
absadr converts a pointer into an absolute address; reladr 
converts an absolute address into a pointer. 

NOTE: The pointer constant nil does not convert to the 
Macintosh value of nil. The constant AbsNil, declared in the 
MacCore unit, corresponds to a Lisa Pascal nil pointer. Also, 
there is no pointer value that corresponds to a odd absolute 
address. 

The intrinsic adr takes a variable reference as a parameter and 
returns a pointer to that variable. The intrinsic locate takes a 
variable reference as a parameter and returns the absolute 
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address of that variable. The variable reference may be a 
reference to a sub—component of a variable, as long as that sub- 
component is word—aligned and occupies at least one word of 
storage. Locate(x) is equivalent to absadr ( adr (x)). 

Here are some examples of using absadr, reladr, locate , and adr . 



X: in-beger; 
Pi ■" i n"t«g«r | 

AjBs MttcPtr; -{actually an i n"b«g©r2> 

b«g I n 

Ps«s adr(X)| /poin-fes p at th« variable x)- 

:sr mbmmdr (P) ; /sets a to the absolute address of x}> 
:3s -absadr Cadr (X) ) J -fsets b to the same thing}- 

- locate(X)| -ia shorter version of the last line} 

■ ^)l i . . .. ... 



A 
B 
8 
P 



reladr^A); -{points p at the variable x} 



Two more intrinsics round out the set of intrinsics that deal with 
pointer manipulation. The intrinsic derefhnd (dereference 
handle) returns the absolute address of the location the handle 
references, A handle is a Macintosh pointer— to— a— pointer used 
to reference relocatable blocks on the Macintosh heap. 

NOTE: Derefhnd returns only the lower three bytes of the 
address. The upper byte, which contains Memory Manager 
attribute bits, is set to zero. For more information on Memory 
Manager attribute bits, see the Memory Manager chapter of 
Inside Macintosh, 



Finally, the routine absmove is a block move intrinsic that acts 
like moveleft with absolute source and destination pointers. This 
intrinsic is useful for moving Macintosh— created data into a 
UCSD Pascal variable. 



An example of the use of derefhnd and absmove is given below. 
This example allocates a 256 byte relocatable block by using the 
Memory Manager procedure NewHandle. It dereferences the 
handle returned in order to get the 32— bit absolute address of the 
^J^^k. Absmove is then used to move the string S into the block. 



iHandte : HandN 
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s : S-br 1 ng ; 

p : MacPtr ; 

beg 1 n 

8 := 'Move this «"bring "bo a reloca'tabie b I ock ^ 

sHandle := NewHandie (256) ; 

p := DeRefHnd (sHandle) ; 

Aba^Move ( Locatre («) , p, Sizeof («) ) ; 
end }" 



Longint 

The Lisa Pascal type Longint is used throughout the Toolbox as 
a parameter type and function result type. The UCSD Pascal 
equivalent to Longint is integer2 » In the MacCore unit there is a 
type declaration for Longint: 

type 

Longint s integer2; 



Pointer Types 

All pointers within the Toolbox are represented in the interface 
units by the substitution type integer2 (interpreted as an absolute 
address). Because all Toolbox pointer types are integer2 , there is 
effectively no type checking done when pointers are passed as 
parameters to a Toolbox routine. You should be very careful 
when passing pointer values to the Toolbox. 

OpenPort in QuickDraw takes a pointer as a parameter. The 
following code fragment shows how a locally declared GrafPort 
could be passed to OpenPort: 



var 

GP: GrafPort; 

beg I n 

OpenPort ( I ocate (GP) ) ; 
end ; 
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Call— by— reference Parameters 

Call— by— reference parameters are parameters that are passed 
indirectly by passing a pointer to the item. One example of call- 
by— reference in Pascal is var parameters. Another example (one 
which depends on the implementation) is passing value 
(non— var) structures (e.g. arrays and records). In Lisa Pascal, 
value structures that are over 32 bits in size are always passed by 
reference. 

Since call— by— reference parameters in UCSD Pascal are passed 
as 16— bit pointers on the stack, they cannot be used in calls to 
the Toolbox. Therefore, all call— by— reference parameters to the 
Toobox are passed as value absolute addresses. 

For example, the Lisa Pascal definition 

procedure Get^Fon^blnf o (v«r info; Fon-blnf o) j 

is transformed into the UCSD Pascal definition 



t,yp« 

Fon-blnP-br as mt>4sger2| 

proc«sdur« G«t.Font.Inf o ( 1 nf o : Fon^InP-br) | 



This calling mechanism is used for all var parameters and all 
value structure parameters over 32 bits in size. Here is an 
example call to GetFontlnfo (declared in QuickDraw): 



var 

FI: Fon-blnfo; 

beg I n 

G«-bFonfcInf o ( J Oi=afc« (FI) ) ; 
end I 



Var pointer parameters are an especially confusing case. Here is 
an example: 
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P: GrafPtr; 
GP: GrafPort; 



8g I n 
Ge-bPort. T I oca-be (P) ) ; 
absmove(P, locato(GP) ,«i; 



Je-bPort. ( I oca-be (P) ) ; 

izeof (GP)); 



»nd ; 



This example loads the contents of the current GrafPort record 
into the local copy GP. If you understand this example, you 
should have no problems with call— by—reference parameters in 
the Toolbox interface. 



Boole 



The Lisa Pascal representation of type Boolean differs somewhat 
from the UCSD Pascal representation, as follows: 

• The UCSD Pascal Boolean is represented in a full 16— bit 
word. Only bit of the word is significant. Zero (0) 
represents false . One (1) represents true . 

• A Lisa Pascal Boolean value is represented in an 8— bit byte. 
As a parameter it is passed in the upper byte (bits 8 to 15) of 
a 16— bit word. All of these 8 bits are significant. Zero (0) 
represents false . Any nonzero value represents true . As a field 
in a record, a Boolean value is automatically packed into a 
byte. 

Because of these differences, type Boolean is represented by the 
substitution types MacBool and SmallBool. MacBool is for 
Boolean parameters and SmallBool is for Boolean fields in a 
record. Unfortunately, MacBool and SmallBool are not 
compatible types. It is necessary to use the conversion routines 
when converting between them and UCSD Pascal Boolean s. 

Four conversion functions are available in the MacCore unit to 
map between MacBool or SmallBool and UCSD Pascal Boolean 
values: 



ToMacBool (UB) -Tconver-ba UCSD format — > MacBool J 
FrMacBool (LB) 4conver-b« MacBool — > UCSD formatj 
ToSma M (UB) -fconver-ba UCSD format — > SmallBool J 
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FrSma! I (SB) ^eonvep-ts Sff»© I « B©© I --> UCSD fopmm^y 



GetPixel in Quickdraw returns a Boolean value. Here is a call to 
GetPixel: 



if FrMacBool (G«^Pixel (100,100)) 
■bh©n . . . 



WARNING: When converting from SmallBool to MacBool it is 
necessary to go through the intermediate type Boolean ; there are 
no provisions for converting directly between MacBool and 
SmallBool. 



For example, suppose you want to pass the contrlVis field of a 
ControlRecord (a SmallBool) into the Visible parameter (a 
MacBool) of the Control Manager procedure NewControl. It is 
done as follows: 

CH ja N«wC©ntr© I (, . . ^T^MacS©© I (FrSma ! I (CR . <s©ntr ! V 1 *) ) > « . *) ) 

Packed Data 

Lisa Pascal packs data differently from UCSD Pascal. The 
following differences have an effect on the Toolbox interface: 

• Type Boolean within a record is automatically packed into a 
byte in Lisa Pascal. UCSD Pascal does not automatically 
pack any type. 

• Lisa Pascal packs the fields of a record in a different order 
from UCSD Pascal. 



Because of these differences, packed data is represented 
somewhat differently in the UCSD Pascal interfaces to the 
Toolbox. 
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First, records containing Boolean s that will be automatically 
packed by Lisa Pascal are declared packed. Second, the order of 
declaration of fields in a packed record may be changed. 

For example, the data type WindowRecord in the unit TBTypes 
contains four SmallBool fields. They are represented thus: 

type 

WindowRecord = packed record 

port: ^ GrafPort; 

windowKind: in"beger; 

h 5 M ted : Sma I 1800 I 

visible: Sma i t Boo t 

spareFiag: Sma i I Boo i 

goAwayFtag: Sma ) i Boo t 

end ; 



The record has been packed and the four SmallBool fields are 
declared in a different order from the Lisa Pascal interface. 

Procedure Pointers 

Procedure pointers are used to implement a procedure data type 
(including procedural parameters) in the Toolbox. Procedure 
pointers are usually used to pass some sort of "action procedure" 
to a Toolbox routine. For example, TrackControl in the Control 
Manager takes a parameter called actionProc. Periodically 
during a call to TrackControl, the Toolbox may call the user 
procedure actionProc. This procedure is passed to TrackControl 
as a procedure pointer, which is represented by the absolute 
address of its entry point. 

The procedure pointer concept is supported in UCSD Pascal by 
an alternative form of the intrinsic locate . In this form, locate 
takes two parameters: a procedure or function identifier and an 
entry point number. It returns the absolute address of the entry 
point. 

There are nine entry point numbers available for use by 
application programs. They are numbered one (l) through nine 
(9). 
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Here is an example of how to use locate . 



proc«dur« MYPROC; 
beg I n 



sgi 

end J 

lis TrockControl (CH,P, I ocafce (MYPROC , 1) ) ; 
end ; 



CH and P are other parameters to TrackControl (which is 
declared in the Control Manager unit) that can be ignored for the 
purpose of this discussion. Locate installs MYPROC in entry 
point 1, and passes the address of entry point 1 to TrackControl. 
When TrackControl wants to call the actionProc, it calls entry 
point 1, which causes MYPROC to be invoked. 

Some action procedures are called immediately by the routine 
they are passed to. Others are called at a later time, or are not 
passed directly as parameters, but instead are installed in a data 
structure. There is a convention for selection of entry point 
numbers that will help eliminate some errors when using 
procedure pointers. 

The convention is as follows. 

• Entry point is reserved for UCSD Pascal's grow zone 
procedure. You may not use entry point in your 
application. 

• Entry point 1 should be used for action procedures that have 
very limited scope. The parameter to TrackControl is an 
example. There, actionProc will only be called while 
TrackControl is executing. When TrackControl returns 
control to the user program, actionProc will no longer be 
called. 
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• The entry points greater than 1 should be used by action 

procedures of larger scope those that will be called long 

after they are installed. The user is responsible for making 
sure that there is no conflict of entry point numbers within an 
application. Otherwise, serious errors will result. 

Here is an example of using entry points greater than one. The 
grafProcs field of a GrafPort contains an array of low— level 
procedures that replace the default procedures in QuickDraw. 
You can customize QuickDraw by installing your own version of 
these procedures. 



var 

GP: GrafPort; 
QDP : QDProcs; 

b«9 *i n 

SotStdProcs(locato(QDP)) ; 

QDP.rect.Proc:= I ocate (MYRECT , 2) ; 

QDP.rRectProcss I ocate (MYRRECT, 3) ; 

GP .grafProcs 1= locat«(QDP); 
end ; 



In the example, entry points 2 and 3 must not be reused until the 
original rectangle and rounded rectangle primitives have been 
restored. 



Enumerated Types 

Enumerated types are affected by the order in which Lisa Pascal 
packs byte sized quantities. Lisa Pascal expects the small 
enumerated types to be passed in the upper half of a word. 
UCSD Pascal expects it in the lower half. Therefore, enumerated 
type parameters are represented by the substitution type integer, 
and the values of the enumerated type are represented by integer 
constants. DateForm in the Package Manager and GrafVerb in 
QuickDraw are two examples of enumerated types that have been 
replaced with constants. 
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Packed Array of Bit 

Packed arrays of bits also suffer from byte—order problems. Lisa 
Pascal arranges the array indices in a word as follows: 

7 6 5 4 3 2 1 15 14 13 12 11 10 9 8 



UCSD Pascal arranges the indices in a word as follows: 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 O 



The best way to handle this rearrangement is to write an index 
mapping function from the Lisa Pascal index to the UCSD Pascal 
index. Here is an example mapping function for type KeyMap 
(declared in the Event Manager unit), which is a packed 
array[l..l28] of Boolean . 

function MKI(1: i nt.eger) : in-beg^r; {Map Kmy Index}* 
b«a i n 

If (1-1) mod 16 < 8 

t»h®n MapKey Index ::ss 1+8 

else MapKey Index :s 1-8; 
end; 



This function works by "switching" the upper and lower halves of 
each index range within a word. Suppose you want to set bits 32 
and 55 in a KeyMap: 



var 

KM; KeyMap; 
beg 1 n 

KMrMKI<32)] iss -true; 

KMCMKi(6S)J :« true; 
end ; 



Other bit arrays will require different mapping functions. 
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OSType and Point 

OSType and Point are two Toolbox data structures that require 
special care when passed as value parameters. These two records 
fall into the category of structures that are 32 bits in size. When 
they are passed as value parameters, they are passed directly on 
the stack, instead of by reference. OSType is declared in the 
MacCore unit and Point is declared in the QDTypes unit. 

Both these data types are represented by the substitution type 
integer2. The UCSD Pascal declarations of OSType and Point are 
case variant records that have a parameter field that is an 
integer2. This field must be passed as the parameter. 

EqualPt in QuickDraw takes two value point parameters. 



var 

P,Q: Point; 

b«g 1 n 

if Equa IP'b(P.Parafn,Q.Param) 
t>h«n . . . 
end ; 



CountResources in the Resource Manager takes a value 
parameter of type OSType. 



var 

th«Typo: OSType; 

x: in-beger; 
beg I n 

theType.c:* *STR »; 

x:= Count>Re»ource» ("theTyp^ . p) ; 
end ; 



NOTE: If a Point or an OSType is passed as a var parameter, 
you must not pass it by the method shown above. Instead, it 
should be passed in the same way that other var parameters are 
passed. 



1200301:05B 5-19 



MACINTOSH INTERFACE Chapter 5 



DIFFERENCES FROM INSIDE MACINTOSH 

The last section explained the differences between the UCSD 
Pascal Toolbox interface and the Lisa Pascal interface with 
regard to data representation. This section deals with the 
differences from Inside Macintosh with regard to which Toolbox 
routines nnay be called. 

The differences explained here stem from three causes. First, 
UCSD Pascal uses memory in a slightly different way than Lisa 
Pascal does. Second, the UCSD Pascal implementation performs 
many of the necessary initialization steps described in 
Inside Macintosh, Finally, the implementation of procedure 
pointers (ProcPtrs) imposes some restrictions. 

Memory Restrictions 

This section explains briefly how UCSD Pascal uses Macintosh 
memory, and how this affects application programs. For a more 
detailed description of memory usage see the chapter MEMORY 

MANAGEMENT. 



The important points about UCSD Pascal memory usage are as 
follows: 

• UCSD Pascal uses the Macintosh stack for its stack. 

• The UCSD Pascal heap is implemented as a nonrelocatable 
Macintosh block within the Application Heap Zone. This 
block expands and contracts according to heap usage. All 
data allocated with new or varnew is allocated here. 
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The boundary between the end of the Application Heap and 
the stack (ApplLimit) moves to accomodate the growth of the 
stack. 



The rule to remember when making Memory Manager calls from 
UCSD Pascal is: 

• DON'T allocate a nonrelocatable block immediately above the 
UCSD Pacal heap if you plan to make use of the Pascal heap. 
The nonrelocatable block you allocate will most likely be 
positioned immediately above the heap by the Macintosh 
Memory Manager. This will prevent expansion of the Pascal 
heap. When you need to create a nonrelocatable memory 
area, you should use the UCSD Pascal intrinsics new or 
varnew . You can then convert the 16— bit pointer returned by 
these intrinsics into a 32— bit address by using the function 
absadr. 



For reference, here is a list of the ways that a nonrelocatable 
block can be created. 

• A call to NewPtr creates a nonrelocatable block. 

• A call to HLock makes a relocatable block nonrelocatable. 

• A call to NewHandle can cause a new block of master pointers 
to be allocated. These are put in a nonrelocatable block. The 
UCSD Pascal runtime software preallocates a block of 64 
master pointers. In order to increase this number you need to 
define a new resource file for your program. The example 
RMaker input below will allocate 2 master pointer blocks for 
a total of 128 master pointers. The GNRL type MSTR 
defines the number of master pointer blocks that should be 
prellocated. 

MY.RSRC i; Out/pu-b fllo naino 

APPLPROG ;; Typo * APPL, Creator = PROG 

INCLUDE UCSD Pascal l.-Empt-y Program 

;; Required resources 

TYPE MSTR « GNRL 

,0 (32) 
.H 
0002 i; A I i ocat^es 2 mast.er poin-ter blocks 
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Here is a list of which routines from the memory manager must 
be used differently from what is described in Inside Macintosh. 

SetGrowZone, You must not install your own grow zone 
function for the Application Heap Zone. The Pascal runtime 
system already has one. You may, however, use your own grow 
zone function in a heap zone of your own creation. 

InitApplZone. This routine is not supported, because calling it 
will corrupt the UCSD Pascal code and data structures that are 
kept in the Application Heap Zone. 

SetAppIBase. This routine is not supported, because it will 
interfere with Pascal's use of the Application Heap Zone. 

SetApplLimit. This routine is not supported, because the UCSD 
Pascal runtime support software automatically adjusts the 
Macintosh's ApplLimit variable for you. Calling this routine will 
interfere with Pascal's use of the Application Heap Zone. 

There are two general strategies of memory use that an 
application can employ. An application could make use of the 
Pascal heap. If so, the program must be especially careful about 
use of the Macintosh memory management routines. 
Alternatively, an application could avoid use of the Pascal heap 
altogether. In this case, the program may use the Macintosh 
memory management routines with a little less care than if the 
Pascal heap were being used. 

There are some special considerations regarding dereferencing a 
handle under UCSD Pascal. In particular, there are more ways 
that the Memory Manager can be called "behind your back" 
when UCSD Pascal code is running. Here is a list of ways that 
the memory manager may be called. 
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• Calling a procedure (especially one with local data) can cause 
a stack fault, which will result in some memory management 
functions being performed. A stack fault can also occur when 
using long integers and sets in UCSD Pascal. 

• Calling an external procedure or a system intrinsic can cause 
a segment fault, which causes a code segment to be read into 
memory. This action will result in some memory 
management functions being performed. 

• Allocating data on the Pascal heap with new or mark can 
cause a heap fault, which can result in memory management 
functions being performed. 

NOTE: Calling a Macintosh ROM routine that is declared as an 
in— line procedure or is an external procedure implemented in 
assembly language will never cause a stack fault. Thus, it is safe 
to pass a dereferenced handle to most ROM routines. 

Initialization 

This section describes some initialization routines described in 
Inside Macintosh that do not need to be called from a UCSD 
Pascal program. Some of these routines are not available at all. 

InitGraf, InitGraf is not available in the UCSD Pascal interface 
to QuickDraw. The operations performed by InitGraf are done 
automatically. 

FlushEvents. FlushEvents(everyEvent,0) is done by the UCSD 
Pascal runtime support initialization code. There is no need to 
call FlushEvents in the initialization of your program. 

InitDiaiogs. InitDialogs is done by the UCSD Pascal runtime 
support initialization code. You may call InitDialogs yourself if 
you want to install a restart procedure in the system. 
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InitFonts. InitFonts is done by the UCSD Pascal runtime 
support initialization code. There is no need for your application 
to call InitFonts. 

InitWindows. InitWindows is done by the UCSD Pascal 
runtime support initialization code. You should not call 
InitWindows yourself, since it allocates a nonrelocatable block on 
the Application Heap Zone. 

TEInit. TEInit is done by the UCSD Pascal runtime support 
initialization code. You must not call TEInit yourself. 

The following calls are made for your program when the "Create 
Default Window" option described by Runtime Parameters in 
GENERAL OPERATIONS is enabled. In that case, you do not 
need to call them. 



SetPort. If the "Create Default Window" option (which can be 
enabled or disabled by using the utility Set Options) is disabled, 
you must call SetPort yourself before using any QuickDraw 
routines. 

NewWindow. If the "Create Default Window" option is 
disabled, you must open a window yourself before you do any 
writing to the screen. 

InitCiirsor. If the "Create Default Window" option is turned off 
you will need to call InitCursor from your application in order to 
reset the cursor to be an arrow. 



HideCiirsor, In order to make the cursor visible, call 
ShowCursor. 
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Procedure Parameter Restrictions 

Due to the implementation of procedure parameters to the 
Macintosh Toolbox, there are some restrictions on their use 
beyond what is described in Inside Macintosh. These restrictions 
are as follows. 

• You may not supply an I/O completion routine to an 
asynchronous I/O call. Instead, you must poll the parameter 
block to determine I/O completion. 

• You may not implement a vertical retrace procedure. 

These restrictions are due to the fact that the implementation of 
ProcPtrs will not handle asynchronous calls to an action 
procedure. 



SPECIFIC TECHNIQUES 

This section presents some techniques that will be of use in 
writing applications that use the interface units. Some 
complicated topics from earlier sections of this chapter were 
postponed until this section, because a more thorough discussion 
could be accomplished here. 

Data Outside the Pointer Range 

As discussed above, UCSD Pascal pointers have limited scope. In 
particular, they are only able to address memory within the 64K 
region that encompasses the Pascal Data Area. When it is 
necessary to access some data outside the Pascal Data Area, there 
are two ways it may be done. 
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1, Copy the data into a Pascal variable. After it is copied into 
the Pascal Data Area, it may be examined directly. If it is to 
be modified, then the modified copy must be installed by 
copying the data back into the original. 

2. Access the data in place. Here, modification may be done 
directly, although without the help of record field names. 
With this method, you must know much more about how 
data is represented in the interface units. 

The routine absmove is used to move data from one location to 
another within Macintosh memory. 

Suppose you want to update the grafProcs field of the current 
GrafPort. Using method 1, it would be done as follows: 



GPP: GrafPt-r; < pointer to a graf port > 

GP : GrafPort; < will contain copy of grafport record }• 

QDP : QOProca; \ the graf procedures record y 
beg 1 n 

GetPort ( \ ocate (GPP) ) | 

absmove (GPP , I ocate (GP) , » i zeof (GP) ) ; 

GP.graf Procsiss locate(G|DP)| 

absmove ( I ocate (GP) , GPP , s I zeof (GP) ) ; 
end I 



Using method 2, it would be done as follows: 



GPP: GrafPtr; 

QDPPs MacPtr; 

QDP: QOProGs; 
beg i n 

GetPo r t ( ! ocate (GPP) ) ; 

QDPP s « I ocate (QDP) ; 

absmove ( I ocate (QDPP) ,GPP+si zeof (Graf Port) -4 , s i zeof (C^OPP) j 
end J 
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Accessing a Macintosh Operating System Global 

Globals may be accessed by manufacturing a pointer to them. 
For instance, the global ScrVRes is at location 102H. This word 
may be accessed as follows: 



var 

CopyOf ScrVRes : int^egor; 
beg i n 

absmove(258 <102H>, I ocate (CopyOf ScrVRes) , s i zeof ( i nteger) ) ; 
end J 



How to Dereference a Handle Safely 

In UCSD Pascal, a handle is dereferenced into a pointer by using 
the intrinsic derefhnd . However, you must be somewhat careful 
when dereferencing a handle in UCSD Pascal, because there are 
some additional places where memory management routines will 
be called that may invalidate the dereferenced handle. Memory 
management routines are called "behind your back" when Pascal 
handles one of its internal faults (stack fault, heap fault or 
segment fault). 

The following actions may cause a fault to occur: 

• Calling a procedure may cause a stack or segment fault. 

• Calling a Toolbox interface procedure that is not declared 
using the external(...) syntax may cause a stack or segment 
fault. Procedures declared with the external(...) syntax will 
never cause segment or stack faults. They may, however, 
cause relocatable blocks to move. 

• Allocating data on the Pascal heap with new or varnew may 
cause a heap fault. 

If you must dereference a handle across one of the dangerous calls 
mentioned above (or across one of the dangerous calls mentioned 
in Inside Macintosh)^ you must work on a copy of the data or use 
the Memory Manager procedure HLock to position lock the data. 
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Hoiv to Set Stack Slop 

UCSD Pascal operates its stack in an unusual way, by Macintosh 
standards. In particular, UCSD Pascal moves the boundary 
between the stack and the application heap. Most Macintosh 
applications leave this boundary fixed. 

In order to detect when the boundary needs to be moved, the 
runtime system knows about a "stack slop" value that represents 
the minimum distance between the top— of— stack and the top of 
the application heap. This stack slop has a minimum size of 2K 
(2048) bytes. 

Most of the time, 2Kb of slop is plenty of extra stack space for 
calling Macintosh ROM routines. (ROM routines steal stack 
space without telling UCSD Pascal or your program.) However, 
there are some ROM routines that place an extra burden on stack 
space. 

If you are going to be calling one of these routines, you should 
increase the stack slop by calling the routine SetStackSlop in the 
Error __ Handling unit. This unit is not in the Pascal Runtime 
library, so you will have to make sure its code is available at 
runtime by using the user library feature in Set Options, or by 
using the Librarian utility to include its code in your application. 

Suppose you need 6Kb of stack slop for a portion of your 
program. This can be set as follows: 

v»r 

def au I "t^s I op : in-t«g«r j 
beg i n "" 

def au I "b_« I op :sb G«t.SiiackS I op ; 

S«tSt-«ckS lop<6»»512 <word»» ; 

«{ pu% code tha-fe needs large a I op facbor here y 

SetStrackS I op(def au I fc_^« I op) I «{ rest>ore def ay J -b slop y 
end ; " 
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Each separate UCSD Pascal process has its own stack slop. Many 
programs do not use processes, so they only need to worry about 
one stack slop. If your application uses processes, and you are 
doing ToolBox calls from them, be sure that you keep in mind 
that different processes have different slop factors. In particular, 
the default slop factor for a subsidiary process is forty (40) words. 
You set the slop factor for a process by calling SetStackSlop from 
within that process. 

When your program is started by the UCSD Pascal runtime 
support software, it is running as the "main task", and the stack 
slop is set to a default value of 5Kb. This amount of slop allows 
the Macintosh Operating System to save the screen image bits for 
the portion of the screen image that is obscured by "disk swap 
boxes." A disk swap box appears when your program or the 
runtime support software attempts to access a file on a volume 
that is mounted, but not physically present in the appropriate 
disk drive. After you supply the requested disk, the Macintosh 
Operating System will restore the affected portion of the screen 
image, provided there was enough space to save it. 

If your program uses the Error _ Handling unit to set the stack 
slop below the default value of 5Kb, the disk swap boxes will still 
appear, but will remain visible on the screen until the next time 
your program or the runtime support software calls the Event 
Manager routine GetNextEvent. GetNextEvent will fill the 
affected area of the screen with the appropriate background 
pattern. Usually, you would set the stack slop to less than 5Kb 
only if there is a critical need to maximize your program's 
utilization of memory. For example, the UCSD Pascal compiler 
sets the stack slop to its minimum value of 2Kb so as to 
maximize the capacity of its symbol table. 

The SetStackSlop routine will not let you set the stack slop below 
the minimum of 2K bytes. (Otherwise your program would 
probably crash, as discussed below.) A convenient way to set the 
stack slop to its minimum setting, without placing the "magic" 
2K byte number in your program is to pass zero (0) for the 
argument to SetStackSlop. 
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NOTE: Once you set the stack slop below the default setting of 
5Kb, the saving of the screen contents underneath disk swap 
boxes becomes permanently disabled (i.e. even if you later set the 
slop back to 5Kb, disk swap boxes wll continue to remain on the 
screen until GetNextEvent is called). 

While your application is running as the main task, the 
Macintosh's "stack sniffer" is enabled. The stack sniffer detects 
when the stack expands into the Macintosh heap. If your 
application gets a stack sniffer error (a "bomb" with ID==28) you 
have probably failed to provide enough stack slop to your 
application. The stack sniffer is not enabled while you are within 

a subsidiary task you are on your own if you make use of 

processes. 

Declaring TooiBox Interface Procedures 

There may be some instances when you need to use only one or 
two procedures from an interface unit. If the declarations of 
these procedures in the interface unit ends with an external 
then you can declare them yourself. For example, the following 
program calls the QuickDraw procedure InitCursor without using 
the QuickDraw interface unit. 

program dolfi't j 

procedure Init.Cur^or ; «x-terna I (-22448) ; 

beg I n 

In I -bCursor j 
end . 



The above program will compile much faster than the program 
below which uses the QuickDraw unit. 

program dolnfc 5 

U«es <$U Mac Interface> 
MacCore, 



QOTypes, 

QuickDraw (In 1 -bCursor) | 



beg I n 



9g 1 n 
Ini-fcCuraor j 
end . 
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This technique would be particularly useful if the only procedure 
you needed from QuickDraw was the InitCursor procedure, which 
uses none of the type declarations found in MacCore or QDTypes. 



EXAMPLE APPLICATION 

This section presents an entire (although small) Macintosh 
application complete with scroll bars, grow box, menu bar and 
desk accessories. The source code for this example is located in 
the files GROW and GROW.R on the UCSD Pascal 2 disk. In 
order to see the application in action you must use RMaker, the 
Compiler and the Set Options program as outlined in the 
following steps. 

1. Use the RMaker utility on GROW.R. This will create the file 
GROW.RSRC. 

2. Compile GROW. Use GROW.RSRC as the resource input 
file. 

3. Use the utility Set Options to set the locations of the Pascal 
Runtime, p— Machine and Mac Library files. You must 
disable the "Create Default Window" option ( GROW creates 
its own window). 

The GROW. Code program puts up a single window in which you 
can insert and edit text. The window can be sized and moved. 
The text in the window can be scrolled horizontally and 
vertically. 

You should use the GROW program source as an example of: 
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• the handling of Macintosh events. Notice that window update 
events are generated by the Macintosh ROM. The GROW 
window is updated as a response to these events. 

• the calling conventions for many of the ToolBox procedures. 

• the relationship between resources defined in a resource file 
and the program code that uses those resources. 



In addition the GROW program demonstrates the use of the 
ToolBox from UCSD Pascal. For example, in procedure Initialize 
the line: 

S«t>R©ct ( locate (DragRect) , 4, 24, 508, 338) j 



initializes the rectangle DragRect. The call to locate returns the 
32— bit address of DragRect. This address is passed as a 
parameter to the SetRect procedure. 

In procedure CursorAdjust the line: 

\f FrMacBoo f (Pt I nRecbCmouaePt. . param, locate (TRec-b) ) then 



tests to see whether the point specified by mousePt is in the 
rectangle specified by TRect. Notice the use of the param field of 
the mousePt variable. This field is used to pass the value of 
mousePt to the procedure PtInRect. FrMacBool is used to 
convert the Lisa Pascal Boolean, returned by PtInRect, to the 
UCSD Pascal representation of Boolean . 

Modifying data outside of the UCSD Pascal Data Area is 
demonstrated by the following lines of code from the procedure 
GrowWnd. 



abs^mov® (deref hnd (hTE) , locate (dummy), « i zeof (dummy)) 

dummy . V i ewrect s« TRect | 

abs^move (locate (dummy), detrefhnd (hTE), a i zeof (dummy)) 
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The above code copies the first part of the text edit record, 
pointed to by the handle hTE, to a local variable (dummy). 
Dummy is updated and put back into the text edit record. 

The use of ToolBox procedure pointers is demonstrated by the 
following line of code in procedure DoMouseAction. 

"be : ss TrackCorTbro I (wh 1 chCon-bro I , MousoEven-b . where . pa ram , 
loca-be (Scrol lup,l)) ; 



The procedure Scrollup (declared earlier in the program) is being 
passed to the ToolBox procedure TrackControl. Scrollup is 
called by TrackControl to scroll the bits of the text edit window. 

program Grow; 

\ This example progrom is based on o program of the same name 
written by Gary Glark of Macintosh Technical Support. \ 

Uses |$U UCSD Pascal 2:Mac Interface^ 
MocCore , 
OOTypes, 
TSTypes 

(Jtypes^ EvtRecPtr, EventRecord, Wi ndowRecord , WindowPtr, 
WindowHandle , TEHandle. TEPtr. TERec). 
OsTypes 

(Jtyp«sJ OEIemPtr, QHdrPtr), 
MocOata 

Ovors \ Arrow, thePort), 
Qu ickOraw 

(JprocsJ SetCursor, SetRect. PtInRect. SetPort, GetPort, 
EraseRect. G I oba I Totoca I , ClipRect). 
EventMgr 

(JconstI everyevent, mousedown, keydown, outokey, octivoteEvt, 
updo teEv t , 
|procs| GetMouse, Ge tNex t Even t , StIIIDown), 
Wi ndowMgr 

(JconstI inOesk, inMenuBar, inContent, inOrag, inGrow, i nGooway , 
i nSysWi ndow , 
|procs| Ge tNewWi ndow , FrontWindow, Or awGr ow I con , BeginUpdate, 

EndUpdote, FJndWindow, DrogWindow. TrackGoAway, Se I ec tW i ndow , 
InvalRect, SizeWindow, GrowWi ndow) , 
MenuMgr 

(|types| MenuHandle, 
Iprocsf InitMenus, GetMenu, AddResMenu, InsertMenu, OrowMenuBar, 
MenyKey, MenuSelect, HiliteMenu, Getltem, Enableltem, 
Oi sab I e I tem) , 
ControlMgr 

(|const| inUpButton, i nOownBu t ton , inPageUp. i nPageOown , inThumb, 
|types| Con t r o I Hand I e , ControlPtr, Con t ro I Record , 
Jprocsj Ge tNewCon t ro I , ShowControl, HideControl, Or owCon t ro I s , 
FindControl, TrackControl, GetCtlValue, SetCtlVolue, 
TestControl, MoveControl, S i zeCon t r o I ) . 
TBoxUt i Is 

(Iprocsf GetCursor. HiWord. LoWord) . 
DeskMgr 

(Jprocsl SystemTask, SystemClick, SystemEdit, OpenDeskAcc ) . 
TextEdit 

(Iprocsf TENew. TEldle, TEKey, TEActivote, TEDeac t i va te . 

TEUpdate. TECIick, TECut, TECopy. TEPoste, TEScroM) . 
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OsUt i 1 1 t ies 




(^procsi De 


lay); 


$Lti 




ons t 




app t emenu 


» 1 ; 


f i \ emenu 


» 1000; 


ed i tmenu 


» 1001 ; 


1 as tmenu 


- 3; 


wndwi d 


« 1000; 


i beamiO 


« 1 ; 


VScrol 1 ID 


« 1000; 


HScrol 1 ID 


» 1001 ; 


UnDo 1 tern 


« 1 ; 


ar 




doneF 1 ag : 


boo ! eon ; 


MyMenus ; 


ARRAY [ 1 . . las 


GrowRec t : 


Rect; 


DragRec t : 


Rect ; 


wRecor d : 


Wi ndowRecord; 


theWi ndow : 


WindowPtr ; 


tRect : 


Rect ; 


hTE: 


TEHandle; 


i beamCur sor : 


Handle; 


VScrol 1 : 


Con t r 1 Hand 1 e 


HScro 1 1 : 


Con t r 1 Hand 1 e 


TheOr i g i n : 


Poi nt ; 



Menu ID for desk accessory menu | 
Menu ID for my f\ ie Menu l 
Menu ID for my Edit Menu { 
there are 3 menu items I 
Window ID for theWindow I 
I Beam Cursor I D I 

Control ID for Vertical Scrolling I 
Control !0 for Horizontal Scrolling 
I tern # for UNDO Menu I tern | 



lastMenu] OF MenuHondle; 

Handles to Menu resources \ 

Limits the size of window during grow \ 

Limits the dragging of the window | 

The window we operate on I 

A pointer to the window | 

Rectangle contoining Text | 

handle to our edit record { 

Handle to I Beam Cursor System Resource | 

Vertical scrolling control I 

Horizontal scrolling control I 

Current Origin in the Window { 



>rocedure ResizeTRect; forward; 

segment procedure Initialize; 

ar 
dr vr type : OsType ; j 
i : i nteger ; j 

>eg i n 
doneF I ag :« f a I se ; 

\ initialize menu manager I 
I n i t Menus ; 

J pick up hondles to menu resources 



Used to poss porm to AddResMenu | 
a counter | 



mymenus 
mymenus 
mymenus 



Ge tMenu (app I eMenu) ; 
Ge tMenu ^ f i I emenu) 
GetMenu(edi tmenu) 



J pick up driver names of desk accessories | 
drvr type .c :» ' DRVR * ; 
AddResMenu(mymenusC 1 ] , dr v r type . p) ; 

I insert menus into menu I ist | 
for i:» 1 to lastmenu do 
I nse r tMenu (mymenus [ i ] , ) ; 

OrowMenuBar ; 

Se tCursor ( Ar row) ; 

SetRectf I oca te(dragRec t ) ,4,24,508.338) ; 

SetRect( 1 ocate{ growRec t ) , 100,60.512,302) ; 

theWindow:** Ge tNewWi ndow( wndw I , I oca te( wRecord) . -1); 

SetPor t( theWi ndow) ; 

\ set text edit window size | 
ReSi zeTRec t ; 

I set window text font | 
wRecord . por t . t xFon t :« 2; 

I Allocate the Edit Record | 

hTE:« TENew( locate( tRect) . locate( tRect)) ; 

I get !~beam cursor resource | 
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theWi ndow) 
theWi ndow) 



I beomCur sor:« GetCursor(ibeamlD); 

\ establish scrolling controls I 
vScrol I :- GetNewControi (vScrol I ID, 
hScrol I :- Ge tNewControl (hScrol I 10, 
theOr i g i n . h : » ; 
t heOr i g i n . V :» ; 
end p n i t i a I i ze t ; 

procedure ReSizeTRect; 

\ Resets the bounds of the non-control portion of the window. I 

begi n ^ReS i zeTRec t \ 

TRect:« wReco r d . Po r t . Po r tRec t ; 
with TRec t do 
beg i n 

left:- left + 4; right:- right - 15; 
bottom;- bottom - 15; 
end ; 
end ; 



edure Cur sor Ad j us t ; 

kes the cursor on I-beam if the mouse is inside the application's 

ntent portion and on arrow otherwise. I 



proc 
J Mo 

CO 

vor 

mouseP t 
beg i 

Ge 

i f 



Point; 



Current Mouse Location 



! n 



tMouse( locate(mousePt)) ; 
theWindow - FrontWindow 
then 

If FrMocBoo I (Pt I nRec t (mouseP t . porom. I oca te( TRec t ) ) ) 
then SetCursorfDeRefHnd(i BeomCur sor ) ) 
else Se tCur sor (Ar row) ; 
end; 

procedure GrowWnd(whe r e ; Point); 
vor 

hw: L 

heigh 

cRec t 

dummy 
des 
V I e 

end 
beg i n 



Long I nt ; 

\t , w i d t h : i n teger ; 

Rect ; 

Record 

stRec t : Rec t ; 

ewRec t :Rec t ; 



Rectongle used for movement calcs | 

Dummy Record for updating Textedit record \ 



I Grow the entire window I 
hw:— GrowW I ndow( theWi ndow , where. param, 
HiWord(hii - ^ 



he i ght :■ 



^iw): width:- LoWord(hw); 



I ocate(growRec t ) ) ; 



I remove scroll bars from update region I 
cRectr- wRecord . Por t . Por tRec t ; 
cRect.left:- cRect. right - 16; 
InvalRect ( I oca te( cRec t ) ) ; 
cRect:- wRecord . Por t . Por tRec t ; 
cRect.top:- cRect. bottom - 16; 
InvolRec t ( I ocate( cRec t ) ) ; 

\ now draw the window I 

Si zeWi ndow( theWi ndow,wldth .height.MocTrue); 

I move the scroll bars I 
With wRecord. por t .Por tRect do 
beg i n 

H i deCon trol (vScrol I); 

MoveControl (vScrol I ,right-15. top-1) ; 

S i zeCont ro I i vSc r oil . 1 6 , bo t torn- top-1 3) ; 

ShowCon t rollvScrotl); 

Hi deCont rol (hScrol I); 

MoveControl (hScrol I . lef t-1 .bot tom-15) ; 

Si zeControl (hScrol l.right-left-13,16); 

ShowCon t rol (hScrol I ) ; 
end ; 
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\ adjust text edit rectangle | 

Res i zeTRec t ; 

abs_move(deref hnd( hTE) . I oca te( dummy ) , s i zeo f (dummy) ) ; 

dummy . V i ewrec t : « TRec t ; 

abs_move( I oca te( dummy ) ,derefhnd(hTE) .sizeof (dummy) ) ; 

I add scroll bars to update region I 
cRect:= wRecord . Por t .Por tRec t ; 
cRect.ieft:« cRect. right - 16; 
lnvalRect( locote(cRect)) ; 
cRect:= wRecord . Por t . Por tRec t ; 
cRect.top:* cRect. bottom - 16; 
lnvalRect( locate(cRect)) ; 
end; |GrowWnd| 

procedure DrowWindow; 

I Erase the current contents of theWindow and redrow it. I 

beg i n 

CiipRect(locate(wRecord.port.portrect)); 

EraseRect(locate(wRecord.port.portrect)); 

DrawGrowlcon( theWi ndow) ; 

DrawCont ro I s ( t heW i ndow) ; 

TEUpdate( locate(TRect).hTE); 
end ; 

procedure ScrollSits; 
• or 

I dOr i g i n : Po i n t ; 
dh, dv: integer; 
Degin 

with wRecord do 
beg i n 

oldOrigin:* TheOrigin; 

TheOr igin.h:« 4*GetCtiVal uefhScrol I ) ; 
TheOrigin.v:- 4«Ge tCtlValue(vScrol I); 
dh:« oldOrigin.h - theOrigin.h; 
dv:» oldOrigin.v - theOrigin.v; 
TEScrol I (dh.dv.hTE) ; 
end ; 
jnd jScrol IBi ts| ; 

procedure Sc ro M Up( t heCon t ro I : Con t r o I Hand I e ; theCode: integer); 
>eg i n 

if theCode » inUpButton 
then 
beg i n 

SetCt IVal ue( theCont rol , GetCt IVol ue( theControl )-1 ) : 
Scro! IBi ts; 
end ; 
snd; 

>rocedure Sc ro i i Oown( t heCon t ro I : Con t r o 1 Hand I e ; theCode: integer); 
)eg i n 

if theCode « inOownButton 
then 
beg i n 

SetCt IVal ue( theControl , GetCt IVal ue( theCon t ro I )+1 ) ; 
Scro! IBi t s; 
end ; 
md; 

)rocedure PageSc r o M ( code : integer; theControl: Con t ro I Hand I e ; 

omoun t : in teger ) ; 
-or 

pt : Po i nt ; 
>egi n 
repeo t 

Ge tMouse( locate(pt)) ; 

if Tes tCon t ro I ( theCont ro I , pt . parom) » code 
then 
beg i n 

SetCt IVal ue( theControl . Ge tC t 1 Va i ue( theCont rol )+amount ) ; 
Scfol IBi ts; 
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end ; 
until not FrMacBoo I ( S t i I I Down ) ; 
end ; 

procedure DoCommand(menu_command : Longint); 
I Execute o commend from the menu bar. I 
va r 

theMenu: integer; | the menu selected I 

theltem: integer; | the item in themenu I 

nome : String[255]; | Name of the desk accessory selected I 

refNum: integer; | Reference number of the desk accessory I 

ticks: Long I n t ; 

beg i n 

theMenu:— H i Wor d(menu_command ) ; 

theltem:- LoWord(menu_command ) ; 

case theMenu of 

app I emenu : 
bea i n 

[ open Desk Accessory with item's name i 
Get I tem(myMenus[ 1 ] , t he I t em. I oca te( name) ) ; 
re f Num: « OpenOeskAcc ( I oca te ( name ) ) ; 
end ; 

filemenu: doneFlag:- true; 

ed i tmenu : 

\ process edit command if not System's | 
if not FrMocBool (SystemEdi t ( thel tem-1 ) ) then 
bea j n 

J De I ay is used to keep menu lit I 
Delay(30. ticks); 
Case the I tern of 



3 
4 
5 

end ; 
end ; 



TECut(hTE) ; 
TECopy(hTE); 
TEPaste(hTE) ; 



end; |case| 

\ unhilite the menu selected | 
Hi I i teMenu(0) ; 
end; |OoCommandf 

procedure DoMouseAc t i on(MouseEven t : Even tRecord) ; 

vor 

code: integer; | where mouse was pressed I 

whichWindow: WindowPtr; Window where mouse was pressed I 
mycontrol: integer; Port of control where mouse was pressed 
wh i chCon t ro I : Con t ro I Hand I e ; Control where mouse was pressed \ 
tc: integer; \ Code returned by TrockControl I 

beg i n 

code : » F i ndWi ndow(MouseEven t. where. pa ram, locate(whichwindow)) ; 
case code of 

i nMenuBar : 

DoCommand(MenuSe lect(MouseEvent.where.param)) ; 

i nSysWi ndow: 

Sy s temC I ick( locate(MouseEvent) .whichWindow) ; 

i nDrog : 

DragWindow(theWindow, Mo useEvent. where. pa ram, locate(dragRect)); 

i nGoAway : 
doneFlag:- 

FrMacBoo J ( T rackGoAway (whichWindow. Mo useEvent. where. par am)); 

i nGrow : 

if theWindow » FrontWindow 

then GrowWnd(MouseEven t . where) 
else SelectWindow( theWi ndow) ; 
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i nCon tent: 

if theWindow <> FrontWindow 
then Se lee tWi ndow( theWi ndow) 
e I se 
beg i n 

Global ToLocaS ( !ocate(MouseEvent .where)) ; 

If FrMacSoo I (P t I nRec t (MouseEvent . where . param, I oca te(TRec t )) ) 
t hen 

if BAnd(MouseEvent .modi f i ers ,512) <> 

then TECl i c k (MouseEven t . whe r e . param, MocTrue , hTE) 
else TECl ick(MouseEvent.where.param,MocFa!se,hTE) 
e I se 
beg i n 

mycon t r o I : « 

FindControl (MouseEvent .where.poram, theWindow, 
locate(whichcontrol )) ; 

Cose mycon t r o I of 
i nUpBu t ton : 
tc :- 
TrockCont rol (whichControl , MouseEvent .where. pa ram, 
locate(Scrol lUp, 1 ) ) ; 
i nDownBu t ton : 
tc:* 
Track Control (whichControl . MouseEvent .where. pa ram, 
locote(Scrol IDown. 1 ) ) ; 

i nPogeUp : 

PageScro I I (mycon t ro i . wh i chcon t ro I . -10); 

i nPogeOown ; 

PageSc r o I I (mycon t r o I , wh i chcon t ro I , 10); 
i n Thumb : 
beg i n 
tc :» 
TrockControl (whichControl . MouseEvent .where. pa ram, 
Abs^Ni I ) ; 
Scrot Ibi ts; 
end ; 
end; jcasel 
end ; 

end ; 

end; Jcasef 
snd; lOoMouseAc t i on| 

>rocedure CheckEvents; 

Handle one event from the event queue, f 
o r 

my event: EventRecord; 

theChor : Char ; 

sovepor t ; Graf P t r ; 
•eg i n 

if FrMocBoo I (Ge tNex tEven t (everyevent , I oca te(myeven t ) ) ) then 

case myevent.whot of 

mousedown : DoMouseAc tion(myEvent); 

keydown, autokey: 

if theWindow » FrontWindow then 
beg i n 

theChor:** Chr (myEven t .message mod 256); 
if BAnd(myEvent .modi f iers ,256) <> 
then DoCommand(MenuKey ( theChar ) ) 
else TEKey( theChar .hTE) ; 
end ; 

ac t i vateEv t : 
beg i n 

OrawGr ow I con( t heWi ndow) ; 

if Bond (my even t .mod ! f i ers , 1 ) « 1 
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then 
beg i n 

SetPor t( theWindow) ; 
TEAct i vate(hTE) ; 
ShowCont ro I ( vScro I \ ) 
ShowCont ro I ( hScro I I ) 
end 
e I se 
beg i n 

TEDeac t i vate(hTE) ; 
Hi deCont ro I ( vScro I I ) 
HideCont rol (hScrol I ) 
end ; 
end ; 

updoteEv t 1 
beg i n 

GetPort( locate(saveport)) ; 

SetPor t( theWi ndow) ; 

Begi nUpdo te( theWi ndow) ; 

DrowWt ndow ; 

EndUpdate( theWi ndow) ; 

SetPor t ( sovepor t ) ; 
end ; 

end ; 
end ICheckEventsI ; 



begin jGrow^ 
I n i t i a i i ze ; 
repeat 

Cur sor Ad j us t ; 
Sys temTosk ; 
TEIdle(hTE) ; 
CheckEven t s ; 
until DoneF I ag ; 
end . 



adjust cursor shape to location I 
allow desk accessories to run \ 
blink insertion point I 
check for events i 



RMAKER Input for the GROW Program 

The followijig text defines the resources used by the GROW 
program. The first two lines define the output resource file and 
the file type/Creator. The INCLUDE statement pulls in the 
resources that are required for all UCSD Pascal programs. The 
rest of the text defines resources that are specific to the GROW 
program. 

OROW.RSRC 
APPLPROG 

INCLUDE UCSD Pascal Is Empty Program 

TYPE MENU 

,1000 
Fi ie 
Qu it 
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,1001 
Ed.t, 
Undo/2 

Cu-b/X 

Copy/C 

Past,«/V 

TYPE WIND 

,1000 
UCSD Pascal Samp I < 
50 40 300 450 
Visible GoAway 
O 
O 

TYPE CNTL 

,1000 
vert/ical scroll bi 
-1 395 236 411 
Visible 
16 
O 
O 50 

TYPE CNTL 

,1001 
horizont-al scroll 
235 «1 251 396 
Visible 
16 

O 50 O 
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This chapter describes RMaker, the utility program that is used 
to produce resource files for UCSD Pascal programs. The use of 
resources is described in Inside Macintosh. The sections of this 
chapter are organized as follows: 

ABOUT RMAKER describes the function of the RMaker utility. 

RMAKER INPUT FILES describes the structure of RMaker 
input files, including suggested file naming conventions. 

DEFINED RESOURCE TYPES describes the syntax for 
predefined resource types. This section will tell you the syntax 
for defining menus, dialog boxes, alert boxes and other ToolBox 
resources. 

CREATING YOUR OWN TYPES describes how you use the 
predefined type GNRL to create your own resource types. 

USING RMAKER describes how to run the RMaker utility and 
how to create resource files for input to the UCSD Pascal 
compiler. 
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ABOUT RMAKER 

RMaker is the resource compiler supplied with The 
MacAdvantages UCSD Pascal. It is very similar to the 
RMaker program in the Lisa Workshop, but some changes have 
been made to the syntax. Be careful if you are converting 
resource files from one system to the other. 

RMaker takes a text file as input, and produces a resource file. 
The text file contains an entry for each resource to be defined, as 
described in the section DEFINED RESOURCE TYPES. The 
input text file also specifies the location and type of the output 
resource file. 

The output from RMaker can be used as an input to the UCSD 
Pascal compiler. The compiler will copy the resources from the 
resource file specified to the UCSD Pascal program's resource 
fork. You can also use RMaker to append new resources to the 
resource fork of an existing UCSD Pascal program. 



RMAKER INPUT FILES 

An RMaker input file is a text file, as created using the Editor. 
By convention, RMaker input files have the extension .R. If you 
follow this convention you will easily be able to tell which text 
files on your disk are resource text files. 

RMaker ignores all comment lines and blank lines between 
resource definitions. It also ignores leading and embedded spaces 
(except in lines defined to be strings). Comment lines begin with 
an asterisk. To put comments at the end of other RMaker lines, 
precede the comment with two consecutive semicolons (;;). 
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Creating New Resource Files 

The first non— blank and non— comment line of the input file 
specifies the name of the resource file to be created. The file 
should have the extension .RSRC. The line following the file 
name should either specify the file type and creator bytes for the 
Finder, or be blank. For example, the first two lines below 
designate the file NewResFile.Rsrc as the output file. The file is 
an application (type APPL) with a creator of PROG. The 
standard file type and creator for all UCSD Pascal programs is 
'APPLPROG'. If you do not specify the type and creator, they 
default to (a null string). 

N«wRosFl lo.Rsrc 
APPLPROG 

* The f o I lowing include st-at.emen'b will read in the 

* resources that/ are required by all UCSD Pascal programs. 

INCLUDE UCSD Pascal 1: Empty Program 

* Program specific resources go here 



The- RMaker output file NewResFile.Rsrc, created by the above 
input file, can be used as input to the UCSD Pascal compiler. 

Appending to an Existing Resource File 

The other type of resource input file starts with an exclamation 
pointy followed by the name of the existing resource file that you 
wish to change. For example 

! MyProgram . Code ;; must be followed by a blank I i n« 

* New resource definitions go here 



tells RMaker to add new resources to the UCSD Pascal program 
called MyProgram. Code. 

WARNING: You may not follow a file name with a comment 
(the above example is illegal.) 
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Include Statements 



The rest of the resource input text file consists of INCLUDE 
statements and TYPE statements. 



INCLUDE statements are used to read in existing resource files. 
An INCLUDE statement looks like this: 



NewRe«Fi lo.Rsrc 
APPLPROG 

* The fol lowing Include s-bat^emen-t will read in 

* "the resources 'tha't »r9 required by ai I UCSO Pascal 

* programs . 

INCLUDE UCSD Pascal IsEmp-by Progrmm 

* Program specific resources go here 



Typically you will use an INCLUDE statement to include the 
standard UCSD Pascal resources into a resource file that contains 
resources specific to your application program. Standard UCSD 
Pascal resources are in the file Empty Program on the disk 
UCSD Pascal 1. 

Type Statements 

TYPE statements consist of the word "TYPE^^ followed by the 
resource type and^ below that, one or more resource definitions. 
The resource type must be capitaliased to match a predefined 
resource type. 

The following statement creates three resources of type 'STR \ 

TYPE STR 

This IS a spring 

Ano*fcher S'tring 

'^ 
Anot>her storing resource 
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It is not necessary for all resources of a given type to be declared 
together. However, all resources of a type must have unique 
resource ID's. If you specify a resource ID that is already in use, 
the new resource replaces the old one. 

A resource definition looks like this: 



[resource name] , resource ID [(resource a-btribu-be byt-e)] 
type-specific da-ta 



The square brackets indicate that the resource name and resource 
attribute bytes are optional. Don't place these brackets in your 
input file. The comma before the resource ID is mandatory. 
Attribute byte numbers are given in decimal. Attribute byte 
values are defined in the Resource Manager chapter of 
Inside Macintosh. The default attribute byte value is 0. Here are 
some sample resource definitions: 

TYPE STR 

NewSt/r ,4 (32) ;; 32 means resource Is purgeabie 

This resource has a name and an a't'tribu'te byte!! 

^,5 (32J 
This one has only an attribute byte. 

MvNewStr,6 

Tn 1 s one has only a name (the attribute byte i s 0) . 



The type— specific data is different for each resource type. As 
you have probably guessed, the type specific data for a 'STR ' 
resource is simply a string. The next section describes the type 
specific data for the resource types defined by RMaker. 



DEFINED RESOURCE TYPES 

RMaker has 11 defined resource types: ALRT, BNDL, CNTL, 
DITL, DLOG, FREF, GNRL, MENU, STR , STR# and WIND. 
The format of the type— specific data for each type is shown by 
example, below. The type GNRL is used to define your own 
resource types. It is explained later. 
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Syntax of RMaker Lines 

There are just a few general rules that apply to lines read by 
RMaker. 

• Leading and embedded blanks are ignored, except when 
necessary to separate multiple numbers on a line, or when 
they are part of a string. 

• Blank lines should not be placed inside a resource definition, 
unless required (the exceptions are pointed out below). 

• Numbers are decimal, unless specified otherwise. 

• RMaker is sensitive to line breaks. Thus if a type description 
shows four values on a single line, you must put four values 
on a single line. 

Two special symbols can be used in resource definitions: the 
continuation symbol (+4-) and the enter ASCII symbol (\). 

'¥'¥ go«« mt> "the mnd of a I 't nm ^ha'fe is con'fcinu«d 

on t-he n«x-t I 1 n« , 

\ precedes t-wo hexadecimal digits. Tha'fc ASCII 

character is ent»ered 1 n-fco t>he resource 
def I n i -t 1 on . 



Look at the description of the 'STR ' type for examples of these 
special symbols. 

The use of most of the TYPEs listed below are described in the 
appropriate chapter in Inside Macintosh, For example, the use of 
the type DLOG is described in the Dialog Manager chapter of 
Inside Macintosh. 
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ALRT Alert Resource 



TYPE ALRT 

,128 
50 50 250 250 
1 
7FFF 



resource ID 
"bop lef"b bo'b'bom righ-b 
resource ID of 1 t»em I i st> 
S'bages word In hexadecimal 



BNDL Application Bundle Resource 

The BNDL resource is used to implement the Macintosh Finder 
interface to an application program. It allows the application to 
define its own desktop icons and associate documents with 
specific programs. The BNDL resource is discussed more fully in 
the section APPLICATION INTERFACE TO THE FINDER in 
the chapter GENERAL OPERATIONS. 



TYPE BNDL 

,128 
MPNT 
ICN# 

128 1 129 
FREF 
128 1 129 



resource ID 

bund I e owner 

resource t>ype 

ID O maps to resource ID 128, 

resource t>ype 

ID maps -to resource ID 128, 

Must be f o i lowed by a blank t 



to 129 
to 129 



NOTE: The number of mappings, from local ID to resource ID is 
variable. Simply include multiple mappings on a single line. 

NOTE: If the BNDL resource is present in an RMaker input file, 
the resulting output file will have its bundle bit set. 

CNTL Control Resource 



TYPE CNTL 

,130 
Stop 

244 40 260 
Inv i s t b le 
O 

10 



80 



resource ID 

title 

top left bottom right 

see note 

ProcID ^control definition ID) 

RefCon (reference value) 



minimum maximum 



I i u« 
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NOTE: Controls can be defined to be Visible or Invisible, 
the first character (V or I) is significant. 



Only 



DITL Dialog or Alert Item List Resource 



TYPE DITL 

,129 
5 

Stat- i cT«xt» 
20 20 32 100 
Whoop I o 

Ed I tText- 

20 120 32 200 

Dofaui't message 

rad 1 oBu-btpon 
40 40 60 150 
He! lo 

CheckBox Disabled 
75 40 95 150 
GoodBye 

But. "ton 

75 160 95 200 

HI ! 



resource ID 

5 i "bems » n I » st/ 

sba-bic ■fcex'b 'item (see not-e) 

"bop lef*b bo'bt/om righti 

message 

blank lines are opt'ional here. 

edit^able 'tex-t item (see note) 

top left bottom right 

message 

radio button Item (see note) 
top left bottom right 
message 

d 1 sab I ed 1 tern (see note) 
top left bottom right 

mess a ge 

button 1 tern (see note) 
top left bottom right 

message 



NOTE: Five types of dialog items are defined: Static text, 
Editable text, Radio Buttons, CheckBoxes, and Buttons. These 
items are assumed to be enabled. Otherwise you may specify 
Disabled. Only the first character of these item definition words 
are significant (S,E,R,C,B,D). 

DLOG ^Dialog Resource 



TYPE DLOG 

Th \ 9 I s a 
lOO 100 
ble 



Vis 
O 

200 



a dial og box . 
190 250 
QoAway 



resource ID 

message 

top left bottom right 

box status (see note) 

procID fd la log definition ID) 

refCon {reference value) 

resource ID of item list 



NOTEs A dialog box can be Visible or Invisible. GoAway and 
NoGoAway determine whether or not the box can be closed. 
Only the first characters (V,I,G,N) are significant. 
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FREF File Reference Resource 

The FREF resource is used to associate file types with icons. 
Used in conjunction with the BNDL resource, the FREF resource 
allows applications to define their own desktop icons. For more 
information see the section APPLICATION INTERFACE TO 
THE FINDER in the chapter GENERAL OPERATIONS. 



TYPE FREF 

,128 
APPL O 



,129 
TEST 127 myFi h 



resource ID 

Fi le type, local ID of icon 

Blank lines ok be'tween resource 

def i n i ^i ons . 

resource ID 

Fi le t-ype, local ID of icon, f i le nam« 



If there is no file name, it can be omitted. 



MENU Menu Resource 



TYPE MENU 

,3 
Transfer 
Edit> 
Asm 
Link 

Exec 



resource ID 

menu t. i "t I e 

i "tem 1 

i t^em 2 

I t»em 3 

i 'tem 4 (draw a line) 

1 "tern 5 

MUST be fot lowed by mr\ empty i ine! ! 



WARNING: An empty line must follow a MENU resource 
definition. The line must not have comments (the example above 
is illegal) or spaces. 

STR String (space required) 



TYPE STR 

.,1. 
Th IS is a s-br i ng 



;; *STR * (space required) 
I ; resource ID 
; ; mnd a S'tr i ng 



> 23 ;; resource ID 

This is a s"bring ++ ; ; and a long si&ring 
'tha't shows "the •f4- 
line conti nuat^i on characters. 

,26 (32) ;; resource ID, at-'bribu'be byte 

I*ve got. att-r i but-es ! ;| and a s-tring 



,27 



I ; resource ID 
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Testiing, \31 , \32, \33 



'Testing, 1, 2, 3* "the hard way 



STR# String List Resource 

This resource type allows you define a number of strings using 
one resource identifier. The procedure GetlndString in the 
OsUtilities unit (listed in Appendix A) can be used to index into a 
string list. 



TYPE STR# 

4 

This 19 a"brlng one 
And S"brin^ t.wo 
Th 1 r*d s'br i ng 
B«nch warmor 



resource ID 
number of st-rlngs 
and t»he s"brings... 



WIND ^ Window Resource 



TYPE WIND 

,128 
Wonder Window 
40 80 120 300 
Invisible GoAway 
O 
O 



t l-b I e 

top left bottom right 

w I ndow status (see note) 

ProcID fw i ndow definition ID) 

RefCon (reference value) 



NOTE: A Window can be Visible or Invisible; GoAway and 
NoGoAway deterniine whether or not the window has a close 
box. Only the first character of each option (V,I,G,N) is 
significant. 



CREATING YOUR OWN TYPES 

There are two ways to create your own resource types. The first 
is to equate a new type to an existing type. For example, you can 
create a resource of type ERRM like this: 
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TYPE ERRM = STR 

,17 (32)^ 
Bad inpu'b file nam< 



"byp« ERRM Is ju»-b Mko STR 
resource ID, a"bt.rlbu"be by-be 
bhe error message 



In the example, we have defined type ERRM to be an STR type. 
This allows us to avoid resource identifier conflicts at runtime 
with other resources of type STR . 

The other way to create your own type is to equate the new type 
to GNRL, and then to specify the precise format of the resource. 
A set of element type designators lets you define the type of each 
element that is to be placed in the resource. 

Here are the element type designators: 



. P pascal s bring 

.S sbring wibhoub lengbh bybe 

. I decimal inbeger 

. L decimal long inbeger 

. H hexadecima I 

. R Read resource from f 1 ie. Fo I lowed by bhr« 
parame-bers: f i Ie name -bype ID 



For example, to define a resource of type CHRG consisting of the 
integer 57 followed by the Pascal string 'Finance charges', you 
could use the following type statement: 



TYPE CHRG = GNRL 
,200 

.1 
57 

.P 
Finance charges 



define typ<s CHRG 

resource ID 

a decimal inbeger 

a pasca i s-br i ng 

MUST be follo¥ved by a blank I I n« 



A more practical example: An application that has its own icon 
must define an icon list, and reference it using FREF (described 
above). Such an icon list can be defined as follows: 
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TYPE ICN# s GHRL 
,128 
.H 
0001 OOOa 0003 0004 

007D'667E 007F 0080 



icon S « St. for an appltca'tion 
resource ID 

en-ter 2 Icons In hexadecimal 
each is 32 bits by 32 bits 

for 128 words total 

MUST be f o I lowed by a blank I ] nm , 



The .R type designator is used to include an existing resource as 
part of a new resource type. For example, to read an existing 
FONT resource into a new resource of type FONT, use the 
following resource definition: 



TYPE FONT = GNRL 
,268 
.R System FONT 268 



define a new type 

resource ID 

rmmd from the System f i le 

the FONT resource with 10=268 



USING RMAKER 

Once you have created the input file to RMaker, the hard work is 
done. Simply select and open the utility RMaker. The standard 
file selection window is automatically opened. Select the file you 
want to compile, and off it goes. 

By default, the standard file selection window displays all the 
text files on the disk. If you want to display only the .R files, 
Cancel the selection window, select .R Filter from the File menu, 
then select Compile from the File menu to redisplay the file 
selection window. 

When RMaker is compiling a file, the name of the source file is 
displayed in the upper left of the window, and the name of the 
output file is displayed in the upper right. As the file is 
compiled, the current size of the resource data, the size of the 
resource map, and the total size are tracked on the right half of 
the screen. In addition, as each line is compiled, it is displayed 
on the screen. When RMaker is finished, the Quit button in the 
lower left hand corner of the window will blink. 
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If there are no errors in the RMaker input file, a resource file 
with the specified name is created. 

WARNING: The TRANSFER menu is not supported. Trying 
to transfer out of RMaker could cause unpredictable results. 

UCSD Pascal Compiler Input 

Most of the time you will want to generate resource files that can 
be used as input to the UCSD Pascal compiler. UCSD Pascal 
programs require a minimum set of resources. These resources 
are in the file Empty Program on the UCSD Pascal 1 disk. A 
typical application resource text file would be: 

program. rsrc ;| Oybpyb f 1 le name 

APPLPROG i; Type , Creator 

INCLUDE UCSD Pascal l:Empty Program 

* Your program's resource TYPEs go here. 



Note the use of the volume prefix on the file Empty Program. 
The volume prefix is not needed if Empty Program is on the 
same disk as RMaker (the default volume). Volume prefixes must 
follow Macintosh file naming conventions, as defined in the 
chapter GENERAL OPERATIONS. 

Errors in the Input File 

If an error occurs, the line containing the error is the last line on 
the screen. RMaker then displays a box with an error message in 
it. These are the possible error messages. A brief description 
accompanies the error messages that are not self— explanatory. 
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An Input/ Output error has occured. 

Can't open the output file. 

Can't create the output file. 

Syntax error in source file. 

Bad type or item declaration. 

Bad ID Number, 

Bad Attributes Parameter. 

Can't load INCLUDE file. 

Bad format resource designator in GNRL type. This is 
any error in a user— defined resource type. 

Out of memory. 

Can't add to the file — — disk protected or full. 

Bad bundle definition. 

Unknown type. Specified resource type is undefined. 

Bad Object definition. This can happen if the specified file 
is of the wrong type. 

Bad item type. 

Bad format number. 
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The Librarian is a utility program that allows you to manipulate 
code segments within library files. Libraries are a useful means 
of grouping the separate code pieces needed by a program or 
group of programs. Libraries generally contain routines relating 
to a certain area of application; they can be used for functional 
groupings much as units can. Thus, you might want to maintain 
a math library, a data file— management library, and so 

forth each of these libraries containing routines general enough 

to be used by many programs over a long period of time. 

Maintaining units in well organized libraries is more convenient 
than maintaining a larger number of separate files. It allows you 

• to manipulate an entire collection of units easily. 

• to reduce the number of library files you must specify in the 
Library Files list for a program (see the Set Options utility). 

• to reduce the number of files that are open when the program 
is executing (each library file will be an open file). 

• to think of your application in a more organized way. 



Individual programs may also take advantage of the library 
construct. If a program uses several units suitable for compiling 
separately, but the units logically belong within the program, you 
may want to construct a single library containing the program 
and all of those units. 



Library files created by the Librarian have the same structure as 
code files created by the compiler. Thus, a library file which 
contains a single unit is equivalent to the code file produced by 
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the compiler for that unit. 

NOTE; The Librarian is useful for determining what units and 
segments are in the Pascal Runtime and Debug Runtime library 
files. However, it cannot be used to change these files. Changing 
them will make them unusable. 



This chapter uses the term compilation unit to refer to a program 
or unit and all the segments declared inside it. The segment for 
the program or unit is called the host segment of the compilation 
unit. Segment routines declared inside the host are called 
subsidiary segments. Information in the host segment called 
segment references referes to units used by the compilation unit. 
The segment references contain the names of all segments 
referenced by a compilation unit. When a program is executed, 
the runtime system searches all the library files specified in the 
program's Library Files list to find the referenced segments. 

Some routines called from hosts exist in units in the Runtime 
Support Library and therefore appear in segment references, even 
though there is no explicit tises declaration for them. For 
example, writeln resides in the Runtime Support Library unit 
PASCALIO, so the name PASCALIO appears in the segment 
references of any host that calls writeln . 



USING THE LIBRARIAN 

When the Librarian is executed, it first asks you for the name of 
an output file. This can be any legal Macintosh file name 
including a volume prefix. The UCSD Pascal Compiler appends 
.CODE to the end of every code file name to avoid confusing code 
files with source files. We recommend that you use the same 
convention when creating library files. The Librarian removes an 
old file with the same name as the output file. 

The Librarian then asks you for the name of an input file. If the 
name you enter cannot be found, the Librarian appends .CODE 
to the end of the name and looks again. If you do not want to 
specify an input file at this time, press <Return> in place of a 
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file name. 

Here is a screen display from the middle of a run of Librarian. 
Pascal Runtime has been specified as the input file, and three 
segments have been copied to the output file: 

Librarian: N (ew , 0-9 (s I o-b-'bo-s I ot., E(very, SCelecb, ? 

Input file? PASCAL RUNTIME 

u KERNEL 2015 10 u REALOPS 2092 

1 s USERPROG 1460 11 u LONGQPS 1364 

2 u CONCURRE 431 12 u ASSOCIAT 207 

3 u FILEOPS 854 13 s CREATEEN 877 

4 u EXTRAIO 221 14 s PEDBUILD 1455 

5 u PASCALIO 994 

6 u HEAPOPS 234 

7 u EXTRAHEA 786 

8 u STRINGOP 234 

9 u OSUTIL 340 
Output f i le? NEW. CODE 
Output file is 20 blocks long. 

u KERNEL 2015 

1 s USERPROG 1460 

2 u CONCURRE 431 



The screen display consists of the prompt line, the question line, 
the input display, the output file line, the output file size line, 
and the output display. The input and output displays each 
show a list of code segments entries. Each entry consists of the 
slot number, the segment code, the segment name, and the 
segment length (in words). The segment codes are as follows: 
"p" refers to a main program unit, "u" refers to a unit, and "s" 
refers to a subsidiary segment. Some Librarian commands have 
you specify a segment by its slot number. 

To build a library, you copy segments from various input files to 
the output file. Normally, the Librarian will not allow you to 
transfer more than one segment with the same name to the 
output file. However, the 0— 9(slot— to— slot command allows you 
to override this restriction. 
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LIBRARIAN COMMANDS 

This section describes the Librarian commands. 

• The N(ew command displays a prompt asking for a new 
input file. This file becomes the file from which segments 
may be copied. The segments contained in the input file are 
displayed in the input display. 

• The A(bort command stops the Librarian without saving the 
output file. 

• The Q(iiit command stops the Librarian and saves the output 
file. Just prior to terminating, the Librarian asks you to 
enter a copyright notice. The Qfuit command also copies 
resources to the resource fork of the output file. 

When the Librarian displays the prompt "Notice?" at the top 
of the screen, you should enter a copyright notice and press 
< Return >. The copyright notice is placed in the segment 
dictionary of the output file. Pressing < Return > without 
entering a copyright notice exits the Librarian without writing 
a copyright notice. 

After the copyright notice is processed, the Librarian copies 
resources to the resource fork of the output file. The source 
for the resources is determined as follows: 

If you have transferred one or more segments of type program 
to the output file, the Librarian attempts to copy the 
resources for the file in which the last such segment was 
located. 

If, instead, you have transferred only segments of type unit 
(or subsidiary segments), the Librarian attempts to copy the 
resources from the last input file that was specified. 

If you enter Q(uit prior to copying any segments to the 
output file, the Librarian attempts to copy the resources from 
the file "Empty Program" to the output file. 
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If the Librarian can't find a source from which to copy the 
resources or the copy was unsuccessful, an error message will 
be displayed. If you are trying to create a program that you 
intend to execute and this error occurrs, you will have to 
rebuild the program, making sure a source for the resources is 
available. If you are just building a library file, the 
occurrance of this error is not critical, since the library file 
should still be useable. 

• The T(og command toggles a switch that determines whether 
or not interface sections of units are copied to the output 
file. The interface sections are required if you reference the 
library file in a uses statement while compiling a program. 
Since the interface sections make your library file bigger, 
you should exclude them from the library file when 
development of you application is complete (i.e., no more 
compilations will be done using it) to save disk space. 

• The R(efs command lists the names of each entry in the 
segment reference lists of all segments currently in the output 
file. The list of names also includes the names of all 
compilation units currently in the output file, even though 
their names may not occur in any of the segment references. 
To refresh the output display, press < Space >. 

• The I(nput command "scrolls" the display of segments in the 
input display if there are more segments than will fit on the 
screen. Type I(nput multiple times to cycle through the input 
display. 

• The 0(utput "scrolls" the display of segments in the output 
display if there are more segments that will fit on the screen. 
Type 0{utput multiple times to cycle through the output 
display. 

The remaining five commands transfer code segments from the 
input file to the output file. 
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The 0— 9(slot— to— slot command transfers a segment the 
segment from a specified slot in the intput file to a specified 
slot in the output file. When you enter the first digit, 
Librarian displays the prompt: "From slot # ?". Terminate 
the entry with < Space >, Librarian displays the prompt "To 
slot #?". Enter the number of the slot that the segment is to 
be copied to in the output file. To abort the command, press 
<Return> with an empty output slot number. 

NOTE: You may not use the < Backspace > key to correct 
typing errors. To abort the command after specifying a input 
slot, press < Return > in response to the second question. 
You cannot abort the command after the specifying the 
output slot. 

This command will allow you to copy a segment with a 
duplicate name into the output file. 

The E(very command copies all of the code segments in the 
input file to the output file. Each segment is copied to the 
first available output file slot, provided that its name does not 
conflict with the name of a segment already in the output file. 

The S(elect command causes the Librarian to loop through 
each segment in the input file, asking you whether you would 
like to have it transferred to the output file. For each code 
segment not already in the output file, the Librarian asks: 
"Copy from slot #?". Press Y to copy the segment. Press N 
to skip the segment. Press E to copy the rest of the code 
segments in the input file (as in the E(very command). Press 
<Space> or <Return> to abort the S(elect command. 
Each segment is copied to the first available slot. 

The C(omp— -unit command causes the Librarian to ask: 
"Copy what compilation unit?". You should enter the name 
of a compilation unit. The compilation unit named is 
transferred to the output file, along with any segment 
procedures that it contains. 
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The F(ill command does the equivalent of a C(omp— unit 
command for all the compilation units referenced by the 
segment references in the output file. 
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This chapter describes the Symbolic Debugger and the 
Performance Monitor. The Debugger is a tool for detecting and 
correcting errors in programs that you develop. The 
Performance Monitor is a mechanism for gathering performance 
information and for extending the capabilities of the Debugger. 

The Debugger gives you the following program diagnostic 
capabilities: 

• setting and removing breakpoints. 

• single stepping p— code. 

• displaying and altering memory and p— Machine registers. 

• disassembling p— code. 

To use the Debugger effectively, you must be familiar with the 
p— Machine architecture and understand the p— code operators, 
stack usage, and variable and parameter allocation. These topics 
are discussed in the P-MACHINE ARCHITECTURE chapter. 
Other useful information will be found in The UCSD Pascal 
Handbook and the MACINTOSH INTERFACE chapter. 

A compiled listing of your program is helpful when using the 
Debugger. The listing helps you to determine p— code offsets and 
variable offsets. 
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WARNING: The Debugger is a low— level tool, and as such, you 
must use it with caution. If you use the Debugger incorrectly, 
your program can fail. 



GENERAL INFORMATION 



This section discusses general information about using the 
Debugger. The individual Debugger commands are covered in 
the next section, DEBUGGER COMMANDS. 



Installation 

To use the Debugger, you must be using the Debug Runtime file 
as your Runtime Support Library, and you must have the 
Startup in Debugger option enabled in your program's startup 
options. Both of these may be configured by using the Set 
Options utility, as described in the GENERAL OPERATIONS 
chapter. 

Set Options also allows you to select whether the Debugger will 
communicate via an external terminal, connected to the modem 
port, or the .DBGTERM device (the lower eight lines of the 
Macintosh Screen). If the Create .DBGTERM Device and Create 
Default Window options are simultaneously enabled, the screen 
I/O window will appear smaller on the screen in order not to* 
overlap the .DBGTERM screen region. 

If you have properly installed the Debugger, when you start your 
program it will immediately enter the Debugger, displaying the 
following prompt: 

UCSD Pascal Debugger [IRO.O] 
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Command Format 

The Debugger prompts you for input by printing a left 
parenthesis character '('. There are no menus explaining the 
Debugger commands because they would detract from the 
information displayed on the screen by the Debugger. However, 
when you enter a command, the Debugger may display several 
short prompts that ask you for information. 

Many of the Debugger commands require you to enter two 
characters (such as 'LP' for List P— code, or 'LR' for List 
Register). To abort a command after entering the first character, 
press < Space >. 

Here is a sample of a debugging session: 



UCSO Pascal Debugger [1R0.0] 

(6S) Set break#? e Segname? EXAMPLE Procnome or #? 1 Offset^? 

(BL) 

(b0) S-EXAMPLE P#1 O#0 

(R ) 

Hit break#0 at S«EXAMPLE P#1 O#0 

(VG) Varnome or offset#? 1 

(g ) S-EXAMPLE P#1 0#1 000012E6:01 04 01 56 01 A8 00 00 V 



Most lines of Debugger interaction are prefaced with a command 
code or response code surrounded by parentheses. If the code is 
in upper—case letters, it is a command that you entered. If the 
code is in lower— case letters, it is a Debugger response line. 
There is a table of the possible Debugger response codes and their 
meanings in the Summary of Response Codes section. 

When the Debugger prompts you with questions, you type the 
response and terminate it by pressing < Space > or < Return >. 
When you are asked for the name of a segment or an identifier, 
you may type only eight characters of the name. Most numeric 
input is in decimal radix (base 10). However, when you are 
requested for an address the Debugger expects hexadecimal 
notation to be used. 
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If you make a mistake when typing a response to a question, you 
may use the < Backspace > key to fix the entry. However, you 
cannot edit a response after you have gone on to the next 
question. Terminate the command and reenter it. 

Some commands display more information than will fit on the 
display device. If so, the Debugger will print out a "screen full" 
of output, then ask you to type < Space > to continue. If you 
would like to terminate the output, press any other character. 

Entering and Exiting 

There are several ways to enter the Debugger, (You can tell that 
you are in the Debugger by the presence of the left parentheses 
prompt.) When the Debugger is enabled, the Runtime Support 
Library will enter the Debugger in the following situations: 

• upon starting your program. 

• upon execution of the Debugger procedure in the 
Error __ Handling unit. 

• upon encountering a break point. 

• upon completing a single step operation. 

• upon detecting an execution error, 

• upon execution of the halt intrinsic. 

• upon recognition that the break button has been pressed. 

• upon recognition that the Debug "button" in an execution 
error dialog box has been pressed. 

You exit the Debugger by executing one of the following 
commands: 
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The Quit command puts the debugger in a dormant state. 

The Resume command continues program execution from 
where it left off. 

The Step and Trace commands execute a single p— code, then 
automatically reenter the Debugger. 



If any display options are enabled, then the Debugger will print 
the enabled options just after reentering the Debugger. See 
Configuring the Display for details. 

Debugger State 

When the Debugger is reentered after a Resume, Step or Trace 
command, it remembers its previous state, including the 
condition of the break points, its memory locked state, and its 
display modes. 'However, if the Debugger is entered after it has 
been made dormant by the Quit command, it starts up in a 
"fresh" state, with no break points set. 



Two other features of the debugger state are its current activation 
record and its current address. 



The current activation record determines the environment for 
displaying variables. On reentry to the Debugger, it corresponds 
to the most recent activation record. However, it can be changed 
for a series of commands by using the Chain Down and Chain Up 
commands. 

The current address corresponds to the last address that was 
displayed by a memory examine command. The slash (/) and 
back slash {\) commands alter memory at the current address, 
and the plus (-f) and minus (— ) commands display memory in the 
vicinity of the current address. 
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Symbolic Debugging 

The Debugger becomes a Symbolic Debugger with a little 
cooperation from the UCSD Pascal compiler. If you compile your 
program with the symbolic debugging compiler options around 
portions of your program (see the PASCAL LANGUAGE 
chapter), you can then access variables by name rather than by 
data offset, and you can access code by line number rather than 
by p— code offset. Also, break points may be specified by 
procedure name and line number, and disassembled code will 
display procedure names rather than numbers. 

Having a current compiled listing of your program is still 
essential for serious debugging efforts. 

To use symbolic debugging, it is necessary that the code being 
debugged is compiled with $D+ compiler options. The $D-f 
option instructs the compiler to output symbolic Debugger 
information for those portions of a program that are compiled 
with $D+ turned on. 

Once you have debugged your program, you should recompile it 
without the symbolic debugging flags, because the symbolic 
debugging information increases the size of your code file. 

When you use symbolic debugging, you may specify locations in 
your code by line number. The line number corresponds to the 
line number in a compiled listing of your program^ Of course, 
you can also specify locations in your code by offset. When you 
specify variable or procedure names symbolically, you may only 
type the first eight characters of the symbol's name. 

The example debugging sessions in the rest of this chapter are a 
mixture of symbolic and non— symbolic debugging examples. 
When you are running the Debugger, the Debugger will make it 
clear to you what the permissible command options are by the 
content of its questions. Each question is explicit about what 
type of response it expects. 
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DEBUGGER COMMANDS 

The following sections describe each of the Debugger commands. 

Resuming Execution 

You resume program execution by using one of the following 
commands: 

Q The Quit command puts the Debugger in a dormant 

state, disabling all break points, and continues program 
execution. 

R The Resume command continues program execution from 

where it left off. 

Using Break Points 

The Debugger allows you to maintain up to five break points 
within a program at one time. A break point is a location within 
p— code that will cause the Debugger to be entered when the 
p— code is about to be executed. 

You specify a break point by its break point number. Break 
points are numbered through 4. The location of the break 
point is specified by the segment name, procedure number and 
code offset. If symbolic debugging is enabled, you may specify 
the procedure by name and the location within the procedure by 
line number. A compiled listing of your program is indispensible 
for specifying breakpoints in code, because both code offsets and 
line numbers are printed in the listing. Line numbers can be 
determined "on the fly" by using the File command to examine a 
compiled listing that is stored in a file on disk. 

The following commands manipulate break points: 

BS The Breakpoint Set command enables one break point. 

You are asked to specify (l) the number of the 
breakpoint to set, (2) the segment name, (3) the 
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procedure name or Dumber, and (4) the code offset or line 
number. 

BR The Breakpoint Remove command disables one break 

point. You are asked to specify the number of the break 
point to remove. 

BL The Breakpoint List command lists the break points that 

are currently in effect. 

Here is an example of using the break point commands: 



(BS) Set break #? Segname? EXAMPLE Procnome or |? 1 Offset#? 

(BL 

(b0) S-EXAMPLE P#1 O#0 

fBS) Set break #? 1 Segname? EXAMPLE Procnome or #? 2 Offset#? 25 

(BR) Remove break#? 

(BL) 

(bl) S=EXAMPLE P#2 0#25 



When you have resumed execution with the Resume command 
and a break point is encountered, the Debugger is reentered and 
the following message will appear on the screen: 

Hit broak#0 mt S=EXAMPLE P#2 0#25 

( 



This message means that breakpoint was encountered in 
segment EXAMPLE, procedure number 0, code offset 25. 

Single Stepping 

The Debugger allows you to execute the p— code in your program 
a single instruction at a time by using the single step commands. 
Single stepping is most effective when used in conjunction with 
the enable command, which allows you to set the display options. 
(See Configuring the Display.) 

Using one of the single step commands causes one or more 
p— codes to be executed. Nothing is left on the screen to indicate 
that a single step operation has been performed. However, you 
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may notice that the left parenthesis prompt disappears for a 
moment, the reappears. Most often you will want to run single 
stepping with the P—code option enabled so you can tell where 
you are in the program you are debugging. This option will 
cause each p—code to be printed on the screen before it is 
executed. 



Here are the single step commands: 

S This command causes a single p—code to execute. 

Execution of a procedure call instruction will cause the 
Debugger to "step into" the procedure. 

T This command causes a single p—code to execute unless 

the p—code is a call instruction, whereupon the Debugger 
will execute the entire call and stop on the p—code 
following the call. This command "steps over" procedure 
calls, i.e., it allows you to single step through a procedure 
without worrying about what goes on within the 
procedures that it calls. 

Here is an example of single stepping with the P—code display 
option enabled. Note that the Trace command has been used to 
"step over" procedure calls. The format of the p—code 
disassembly is discussed, below, in Disassembling P—code. 



EP) 












cd) 


S=EXAMPLE 


P#l 


0#1 


SRO 


3 


cd) 


S=EXAMPLE 


P#l 


0#3 


SLDC 


5 


cd) 


SsrEXAMPLE 


P#l 


0#4 


SRO 


2 


cd) 


S=EXAMPLE 


P#l 


0#6 


CPG 


2 


cd) 


S«eXAMPLE 


P#l 


0#8 


RPU 






Disassembling P — code 

The P—code command allows you to look at disassembled 
p—code for portions of your program. 

P This command disassembles a section of p—code. You 

are asked to specify (1) a segment name, (2) the 
procedure name or offset, (3) the start offset or line 
number, and (4) the end offset or line number. 
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Here is an example disassembly: 



p ) 


S< 




F 


cd) 


Sal 


cd) 


S«l 


cd) 


S=l 


cd) 


S=l 


cd) 


S=l 


cd) 


S=l 


cd) 


S=l 


cd) 


S==l 


cd) 


S=l 


cd) 


s^\ 


cd) 


S=l 


cd) 


S=l 



egname? EXAMPLE Procnam« or #? SETCIFD 

'irsi^§ 10 Last# 12 Start L1ne#? 10 End Lln«#? 12 

EXAMPLE P#2 0#0 "- ^ ^ 

EXAMPLE P#2 0#1 

EXAMPLE P#2 0#2 

EXAMPLE P#2 0#3 

EXAMPLE P#2 0#4 

EXAMPLE P#2 0#5 

EXAMPLE P#2 0#6 

EXAMPLE P#2 0#8 

EXAMPLE P#2 0#9 

EXAMPLE P#2 0#10 

EXAMPLE P#2 0#11 

EXAMPLE P#2 0#13 



SLDO 


3 


SLDO 


2 


LEqi 




BNOT 




SSTL 


1 


SLDL 


1 


FJP 


5 


SLDO 


3 


SLDO 


2 


MP I 




SRO 


1 


RPU 


1 



Each p— code instruction is presented, along with the 
"coordinates" of the instruction (i.e., the segment, procedure and 
offset). The p— code names correspond to the instructions 
described in the P-MACHINE ARCHITECTURE chapter. 
P— code operands are in decimal radix (base 10). 

Disassembling p— code is useful in analyzing the exact cause of 
certain runtime errors, and discovering the exact p— code 
coordinates for a break point. If you press < Return > to the line 
number prompts, the Debugger assumes the first and last line 
numbers for the procedure you have indicated. (Similarly, when 
not using symbolic debugging, pressing < Return > in response to 
the start and stop offset prompts causes the Debugger to assume 
a starting offset of zero and an ending offset equal to the offset of 
the last p~code instruction in the procedure.) 

Examining and Modifying Memory 

The commands described in this section allow you to examine 
and modify memory. The Address Data and Address Code 
commands ask you to specify a memory address in hexadecimal 
(base 16) notation. 

For the Address Data command you must specify a 16— bit 
address in the range 0000— FFFF. This address is interpreted as 
an address within the Pascal Data Area. If you enter the value of 
any Pascal pointer variable, the Debugger will display the 
memory that it points to. 



8--J0 
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For the' Address Code command you must specify a 32— bit 
absolute address in the range of legal memory address for your 
Macintosh. This address is interpreted as a 68000 absolute 
address. Note that the 16— bit addresses mentioned above do not 
correspond to the same absolute address. If you enter the value 
of a Macintosh absolute pointer, the Debugger will display the 
memory that it points to. 

For more information on the relationship between Pascal pointers 
and absolute addresses, refer to the MACINTOSH INTERFACE 
and PASCAL LANGUAGE chapters. 

A memory examine command displays memory to the screen in 
the following format: 

(AD) Data address? 500 

(a ) 00000500: 2D F8 2D FD 2E 03 2E F6 .-.- 



The address is followed by two representations of the eight bytes 
stored at that address. First they are displayed in hexidecimal, 
then in ASCII. If the byte does not have a printable ASCII 
representation, it is represented as a dash (— ). 

After you have entered a memory examine command, you can 
examine words in the immediate vicinity by using the plus (-f) 
and minus (— ) commands. The slash (/) and back slash (\) 
commands allow you to alter the memory displayed by the 
previous memory examine command. 

Here are the memory examine and modify commands: 

AD The Address Data command displays eight bytes starting 

at the specified address, and sets the current address to 
this address. The address is a 16— bit pointer within the 
Pascal Data Area. 

AC The Address Code command displays eight bytes starting 

at the specified address, and sets the current address to 
this address. The address is a 32— bit absolute address. 
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■+- The plus command increments the current address by 

eight bytes, and displays the eight bytes at the current 
address. 

— The minus command decrements the current address by 

eight bytes, and displays the eight bytes at the current 
address. 

/ The slash command allows you to alter in hexadecimal 

the memory at the current address. You alter the bytes 
by typing two hexadecimal characters for each byte and 
using < Space > or < Return > to skip to the next byte. 

\ The back slash command allows you to alter in ASCII 

the memory at the current address. You alter the bytes 
by typing a character for each byte. If you wish to skip 
a byte, press < Return >. 

Here is an example of displaying and modifying memory 
contents: 



(AD) Data address? 1000 

(a ) 00001000:52 42 67 02 76 09 £3 48 RBg-v — K 

(a ) 00001008:70 63 B6 40 6F 08 96 40 pc-#o-— » 

(/ ) 87 FF 

(\ ) abdefghi 



Examining and Altering Variables 

The following commands allow you to examine the areas of 
memory where variables are stored. The display is not formatted 
based on the type of the variables. Instead, you must interpret 
the variables in hexadecimal or ASCII form. 

These conamands may be used in conjunction with the slash (/) 
and back slash (\) commands to alter the value of variables. 
They may also be used in conjunction with the plus (-f) and 
minus (— ) commands to display memory in the vicinity of the 
initial memory examine command. 
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To use the variable examine commands you must be somewhat 
familiar with the storage of variables in the p— Machine. See 
P-~MACHINE ARCHITECTURE for details. 

• Local variables refer to the variables declared in the procedure 
that corresponds to the current activation record. 

• Global variables refer to the variables declared at the 
outermost level of the program or unit that contains the 
procedure that corresponds to the current activation record. 

• Intermediate variables refer to variables declared in 
procedures that are nested lexically between the global level 
and the procedure that corresponds to the current activation 
record. 

• External variables refer to variables stored at the global level 
of a unit accessible to the procedure that corresponds to the 
current activation record. 

The current activation record is normally the activation record 
that the p~code instruction that is about to be executed is 
located within. You may change the current activation record by 
changing the frame of reference with the Chain Up or Chain 
Down commands. See Changing the Frame of Reference. 

Each of these commands asks for a variable by name or by offset. 
The offset is a word offset of the variable within an activation 
record. You can determine the offset of a variable by using a 
compiled listing. Variable offsets are numbered starting with 1. 
If you specify an offset that is out of range, the Debugger gives 
you an error message and aborts the command. 

Here are the variable examine commands: 

VL The Var Local command displays eight bytes of the local 

variables of the current activation record. You are asked 
to specify either a variable name or a variable offset. 
This command sets the current address. 

VG The Var Global command displays eight bytes of the 



1200301:08B 8-13 



DEBUGGER Chapter 8 



global variables in the context of the current activation 
record. You are asked to specify either a variable name 
or a variable offset. This command sets the current 
address, 

VI The Var Intermediate command displays eight bytes of 

the variables for an activation record at an intermediate 
lexical level with respect to the current activation record. 
You are asked to specify (l) a lexical offset and (2) a 
variable name or variable offset. A lexical offset of one 
refers to the lexical parent of the current activation 
record. This command sets the current address. 

\n^ The Var Extended command displays eight bytes of the 

global variables for a unit that is accessible to your 
current procedure. You are asked to specify (l) a 
segment number, and (2) a variable name or offset. This 
command sets the current address. 

VS The Var Segment command displays eight bytes of the 

variables for a segment that is part of the Runtime 
Support Library or part of your program. The segment 
in question does not have to be accessible to your current 
procedure. You are asked to specify (l) a segment name, 
(2) a procedure name or number, and (3) a variable name 
or offset. This command sets the current address. 

VP The Var Procedure command displays eight bytes of the 

variables for a specified procedure. You are asked to 
specify (l) a segment name, (2) a procedure name or 
number, and (3) a variable name or offset. The 
procedure must currently by in the call chain. This 
command sets the current address. 

Here is an example of examining and modifying variables: 



(VL) Varname or offset#? 1 

(I ) S*EXAMPLE P#3 0#3 0000E776:00 00 00 00 4E 1A 

h \ S-EXAMPLE P#3 0#7 0000E77E:65 94 00 4£ FE 12 

iVG) Varname or offset^? A 

(g ) S«£XAMPLE P#1 V=A 00001A00:00 01 3F 3F 3F 3F 

(vn Delta lex level? 1 Offset#? 3 

(i ) S«EXAMPL£ P§2 0#3 0000E8FE:00 65 00 00 3F 3F 

(VE) Seg#? 1 Offset!? 5 

(e S S^KERNEL P#1 0#5 00000AE4:11 65 00 00 01 04 



-14 



00 
0A 


00 N— ~ 

CD e— N~— — 


3F 


3P -.^?????? 


3F 


3F ~e— ???? 


06 
66 


3F -e-——? 
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(VS) Segname? FILEOPS Offset^? 5 

(e ) S-FILEOPS P#l 0#5 00009530: out of range 

(VP) Segname? KERNEL Procnome or #? 31 Offset|? 1 

(p ) S-KERNEL P#310#1 0000FFE2:3F 3F 3F 3F 3F 3F 3F 3F ???????? 



Changing the Frame of Reference 

It is possible to change the current activation record, thereby 
changing the frame of reference from which the global, local, 
intermediate, and external variables are viewed. This is 
accomplished by "chaining up" and "chaining down" the call 
chain. The following commands examine the call chain and cause 
the Debugger to move up and down the call chain: 

CL The Chain List command prints out the activation 

records on the entire call chain. 

CD The Chain Down command sets the current activation 

record to be the caller of the current procedure. If there 
are no more procedures in the call chain, this command 
does nothing. 

CU The Chain Up command sets the current activation 

record to be the procedure that was called from the 
current procedure in the actual call chain. If the current 
procedure is the last procedure that was called, this 
command does nothing. 

Here is an example of using these commands: 



['.'.] 



(CL) 

(ms) S^EXAMPLE P#2 0#3 s t o t«00006530 dyn -00006530 

env «00000996 i pc -0024. 
(ms) S-EXAMPLE P#1 0#6 s ta t«00006542 dyn -0000FFCE 

env -00000996 I pc -0036 
(ms) S-KERNEL P#31 0#25 s t a t-0000004E dyn -0000FFD8 

env -000002B6 i pc -0BA5 
(ms) S-EXAMPLE P§^ 0#8 s to t-0000004E dyn -0000FFE4 

env -000002B6 i pc -0010 
(VL) Offset#? 1 

(I ) S-EXAMPLE P#1 0#1 00006520:00 00 00 00 00 00 00 00 

(CD) 

(ms) S-EXAMPLE P#1 0#6 s to t«00006542 dyn -0000FF(:E 

env -000002B6 i pc -0010 
(VL) Offset!? 1 
(I ) S-KERNEL P#31 0#6 0000FFE2:65 94 99 4E FE 12 9A 00 e— N- 
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The call chain display shows a list of the procedure activations 
currently on the stack. Each activation is listed with the p— code 
coordinates of where the activated procedure will return, and four 
values from the MSCW record, which are used to restore the 
state of the caller upon leaving the procedure activation. For 
more information on the MSCW, see the P-MACHINE 
ARCHITECTURE chapter. 

Displaying Registers 

The following commands display the p— Machine registers and 
related information. These commands are closely related to the 
display options described in the next section. 

LR The List Registers command displays the contents of the 

following p~Machine registers: MP, SP, EREC, SEG, 
IPC, CURTASK, READYQ. These registers may not be 
modified. CURTASK is called TIB in the display. 

LP The List P— code command displays the p— code that is 

about to be executed. 

LM The List MSCW command displays the Mark Stack 
Control Word of the current procedure, 

LS The List Stack command displays the top portion of the 

stack, where expression evaluation is taking place. If 
more than eight words of partial results are currently on 
top of the stack, the command displays eight words and 
indicates the number of words not displayed in square 
brackets. 

LA The List Address command displays the eight bytes at 

the current address. 

LE The List Every command is a combination of all the 

other List options. 

Here is an example of each list option, with a description of what 
is displayed: 
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(LR) 

(rg) mp «0000FFD8 sp -0000FFO4 e r ec=000002B6 seg -0000839C 
tib »00000030 rdyq»00000030 i pc "-0BAB ior «0000 



The Register display shows eight p— Machine registers. MP, SP, 
EREC, TIB and RDYQ are Pascal pointers within the Pascal 
Data -Area. SEG is an absolute handle to the segment base. IPC 
is a byte offset from the beginning of the segment. IOR is a 
signed integer value. SEG does not correspond directly to a 
p—Machine register; it is actually a field of the SIB. TIB is the 
CURTASK register. 

(cd) S=KERNEL P#31 0#31 NFJ 11 



The P—code display show^s the current p— code in disassembled 
form and the coordinates of the p—code. 



LM) 

ms) S=KERNEL P#31 0#31 stat=00005BBA dyn =OOOOFFD8 

onv =00000266 i pc =0BAB 



The MSCW display shows the coordinates of the current p—code 
and a representation of the current mark stack record. STAT, 
DYN and ENY are pointers in the Pascal Data Area. IPC is a 
byte offset from the beginning of the segment. 

(st>) [0 3 FEDO 0001 0002 0001 



The Stack display shows the contents of the partial expression 
results stored on the runtime stack. The rightmost word is the 
top of the stack. Only the region of the stack between the SP 
and MP registers is shown. If more than eight words are on the 
stack, the number in brackets indicates how many words are not 
shown. 



(a ) S«HEAPOPS Pi3 0#23 2C1A: 0B 05 53 43 41 40 43 61 
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The Address display shows the eight bytes of memory at the 
current address. 



(ms) S=KERNEL P#31 0#31 s to t-00005BBA dyn «0000FFD8 

env «000002B6 i pc «0BAB 
(rg) mp »0000FFD8 sp »0000FFO4 e r ec=000002B6 seg -0000839C 

tib =00000030 rdyq«00000030 i pc «0BA8 ior =0000 
(a ) 00000000:00 00 00 01 00 04 00 01 ■ — 

( 3 t ) [0 ] 0000 0000 

(cd) S=KERNEL P#31 0|31 NFJ 11 



The Every display prints all the options of the List command. 

Configuring the Display Options 

Normally, when the Debugger is entered it does so quietly, 
printing only the right parenthesis prompt. You may configure 
the display to show register and other information on entry to 
the Debugger. Each option of the List command described in the 
last section may be enabled or disabled within the display. 

The following commands affect the display: 

E The Enable command is a two character command that 

enables a given option in the display. The options are: 
Register, P—code, MSCW, Stack, Address, and Every. 

D The Disable command is a two character command that 

disables the indicated option in the display. The options 
are: Register, P— code, MSCW^ Stack, Address, and 

Every o 

Miscellaneous Coinxnands 

ML The Mem Lock command causes the Debugger segment 

to be locked in memory. This will remain in effect until 
the next Mem Swap command or Quit command. 

MS The Mem Swap command causes the Debugger segment 

to be swappable, 

Z The Zseg command prints a formatted listing of the 
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current environment. The format of its display is 
described below. 

I The Interaction command calls a Debugger Interaction 

Procedure, if you have supplied one to the Pascal 
Runtime Library by using the Error_Handling unit. 
This command allows you to expand the capabilities of 
the Debugger by writing your ow^n command routine. 
See GENER..4L OPERATIONS for more information on 
using the Error _ Handling unit. 

F The File command allows you to examine a portion of a 

text file between two line numbers that you select. 

This is a sample of the output generated by the Zseg command: 

LONGOPS ev«c 000002AA sib 0000047E 

1 KERNEL eroc 000002B6 sib 00000346 seg 0000839C res=l 

2 LONGOPS erec 0000031E sib 0000047E seg OOOOOOOO res=0 

3 PASCALIO «rec 000002DE sib 000003BE seg 00008340 res=0 

4 OSUTIL erec 000002E6 sib 000003D6 seg 0000837C res=rO 
CONCURRE evec 000002A0 sib 00000466 

1 KERNEL erec 000002B6 sib 00000346 seg OOOOOOOO res=0 

2 CONCURRE erec 00000316 sib 00000466 seg 000045EC res=0 

3 EXTRAHEA erec 000002C6 sib 00000376 seg 00008378 res=0 
FILEOPS evec 00000292 sib 0000044E 

1 KERNEL erec 000002B6 sib 00000346 seg 0000839C res=l 

2 FILEOPS erec 0000030E sib 0000044E seg 00008380 res==0 

3 PASCALIO erec 000002DE sib 000003BE seg 00008340 res=0 

4 OSUTIL erec 000O02E6 sib 000003D6 seg 0O00837C res=:0 

5 STRINGOP erec 000002BE sib 0000035E seg OOOOOOOO res=0 
press <space> "bo continue, <esc> to sbor-b 



The Zseg command prints the segment reference list for each unit 
in your program's execution environment. Each unit in your 
program's environment is indicated by a line without a line 
number, along with the location of the segment's EVEC and SIB. 
Following the header line for a segment, each segment referenced 
in its EVEC is indicated. The number at the left of each line is 
the local segment number of the referenced segment. For each 
referenced segment, a pointer to its EREC and SIB, and a handle 
to the segment itself is printed. The RES field at the end of the 
line corresponds to the seg __ res field of its SIB, and indicates 
whether or not the segment is swappable. 



1200301:08B 8-19 



DEBUGGER Chapter 8 



The Interaction command allows you to expand the capabilities 
of the Debugger by calling a Debugger Interaction Procedure that 
your program provides to the Debugger via the Error __ Handling 
unit. Here is an example of a program that installs a Debugger 
Interaction Procedure. 

program dbg-fcest.; 

uses <$U UCSD Pascal 2 s Er rorhand I . CODE> orror_hand M ng ; 

cons-t 

max__fr!«nd = 100; 

friend^rec = record 

name 5 st»r \ ng ; 
age : 1 nt>eger ; 
end 'f 

var 

num friends; Intregeri 

my_7riendsj m r rmyil , .mmx^^f r i ^nd^ of friend_rec| 

df : j nt.erac"b « ve; "" *" 

procedure my^debug_^command ; 
va r — — 

n s I nt.eger ; 
beg 1 n 

wr1t^e(df, 'entry #?*); 
r^md I n (df , n) } 
w r i -be I n ( d f , n ) } 

if (n > O) and (n <« num^fr lends) 
■then ~ 

beg I n 

wr • te I n f df , * name= ' ,my_^f r i ends fn] . name) ; 
w r 1 te 1 n (df , * ag««: * ,my'"f r i ends fnj . age) | 
end; ~* 

end I 

beg 1 n 

reset (df, > .DBGTERM') ; 

""'"„"^'" *• ®"^* • ~ O: 

set^pm_ i nteract 1 ve (my_debug_command) ; 

end . 



In order to make use of the Interaction command, you must have 
the Performance Monitor option enabled in your program. See 
GENERAL OPERATIONS for information on using the Set 
Options utility. After the call to SET _PM_ INTERACTIVE, 
the Debugger is augmented with a ne\v command. Here is a 
sample Debugger session using the above program: 

Program Begin 

Seg Fault on DBGTEST at Seg KERNEL P#31 0#23 

Seg Fault on ERRORHAN at Seg DBGTEST P#l 0#28 

Seg Fault on DEBUGGER at Seg ERRORHAN P#6 0#2S 



-20 1200301:08B 



DEBUGGER COMMANDS 



Sag Faul-b on SEGDEBUG at- Sag DEBUGGER P#2 0#1 
Hit break#0 at- S=:DBGTEST P#l 0#100 
(I ) entr:K #?1 
nam«=:b i I I 
ag«=100 

( 



The output before the break point is Performance Monitor 
output. See PERFORMANCE MONITOR, below, for more 
information on the Performance Monitor. 



The File command allows you to examine a portion of a text file. 
This command is especially useful if you are using symbolic 
debugging and have a compiled listing stored in a file on disk. 
The File command allows you to examine the compiled listing in 
a range of line numbers that you specify. Here is an example: 

(F ) Filename? PMTEST First- Lin«#? 10 Last- Line#? 12 
name: s-tring; 
age : i nt-eger ; 
end ; 



Summary of Commands 

AC Displays bytes at an absolute address. 

AD Displays bytes in Pascal Data Area. 

BL Lists current break points. 

BR Removes a break point. 

BS Sets a break point. 

CD Chains down one activation record. 

CL Lists the call chain. 

CU Chains up one activation record. 

D Disables a display option: A,E,M,P,R,S. 

E Enables a display option: A,E,M,P,R>S. 
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F Displays a portion of a text file. 

I Calls the Debugger Interaction Procedure. 

LA Lists memory at the current address. 

LE Lists every option. 

LM Lists current activation record. 

LP Lists current p—code instruction. 

LR Lists p— Machine registers. 

LS Lists the top of the evaluation stack. 

ML Memlocks the Debugger. 

MS Memswaps the Debugger. 

P Disassembles p—code, 

Q Quits the Debugger. 

R Resumes program execution. 

S Steps a single p—code. 

T Steps a single p—code without entering procedures. 

VE Displays external variables. 

YG Displays global variables. 

VI Displays intermediate variables. 

VL Displays local variables. 

VP Displays variables of indicated procedure. 

VS Displays global variables of indicated segment. 
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Z Displays program environment. 

+ Displays next eight bytes. 

— Displays previous eight bytes. 

/ Modifies memory in hexadecimal. 

\ Modifies memory in ASCII. 

Summary of Response Codes 

(a ) Memory address. 

(bO) Break point 0. 

(bl) Break point 1. 

(b2) Break point 2. 

(b3) Break point 3. 

(b4) Break point 4. 

(c ) Absolute memory address. 

(cd) Code. 

(e ) External variable. 

(g ) Global variable. 

(i ) Intermediate variable. 

(1 ) Local variable. 

(ms) MSCW record. 

(p ) Procedure variable. 

(rg) Registers. 
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(st) Stack. 

EXAMPLES OF DEBUGGER USAGE 

Suppose the following program is to be debugged: 

program not.__clebuggad ; 



1 


2 


1 id 


1 


2 


2 


l;d 


1 


3 


2 


1 jd 


1 


4 


2 


l:d 


4 


5 


2 


IsO 





6 


2 


1:1 





7 


2 


1:1 


3 


8 


2 


1:1 


6 


9 


2 


1:1 


7 


10 


2 


:0 






1 , j ,k : 1 n-beger J 
bl,b2: boolean; 




beg 1 n 

T:= 1; 

j := 1| 

If k <> 1 

then wri t,«ln(*What' 
mrtd . 


* s wrong? ') ; 



First we enter the Debugger and set a break point at the 
beginning of the if statement: 



UCSD Pascal Debugger [1R0.0] 

(8S) Set break #? Segname? NOTDEBUG 

Procname or #? 1 Offset 
(EP) 
(R ) 



After setting the break point we enable p—code (EP) and resume 
(R ). When the program reaches offset 6, the Debugger break 
point is encountered. We single— step twice: 

Hit- break #0 at, S«NOTDEBUG P#l 0#6 

(cd) SsNOTOEBUG P#l 0#6 SLDO 1 

<cd) SsNOTDEBUG P#l 0#7 SLDC 1 

(cd) S=NOTDEBUG P#l 0#8 NFJ 18 



We see that our first single—step did a short load global 1. 

NOTEj The allocation of memory offsets to variables is a bit 
confusing. Normally^ the offset line in the listing indicates the 
word offset of a variable. Howeverj if more than one variable is 
allocated at once in a list, the variables are allocated in reverse 
order. Thus, K has offset 1, J as offset 2, and I has offset 3. 



^-24 1200301:08B 



EXAMPLES OF DEBUGGER USAGE 



The second single— step did a short load constant 1 onto the 
stack. Now we are about to do an integer comparison and jump. 
But this is where our error shows up, so we decide to look at 
what is on the stack before doing this comparison: 

(s^) [0 ] C514 0001 



We list the stack and then see two words on the stack. We 
discover a 1 on top of the stack followed by a word of what 
appears to be garbage. This leads us to suspect that K was not 
initialized. Looking over the listing, we realize that this is the 
case. 

Symbolic Debugging Example 

To use symbolic debugging, some part of a Pascal compilation 
unit must be compiled with the {$D4-} compiler— time option. 
After this code has been generated, it is possible to reference 
variables and procedures by name rather than offset. The 
following example is a small Pascal program that has been 
compiled with the $D-f option. 



if d; 



1 








:d 


1 


<$D + > 


2 


2 


1 


!d 


1 


program example; 


3 


2 


1 


:d 


1 


var a , b , c J 1 n-teger 


4 


2 


1 


:d 


4 




6 


2 


1; 


:d 


4 


procedure set> c 


6 


2 


2: 


:d 


1 


var d.'booleanj 


7 


2 


2; 


:0 





beg i n 


8 


2 


2 


:1 





d:sa>b; 


9 


2 


2 


:1 


5 


if d then 


10 


2 


2 


:2 


8 


c : =a*b ; 


11 


2 




xO 





end; 


12 


2 




:0 







13 


2 




\0 





beg 1 n 


14 


2 




\1 





a:«0; 


15 


2 




\1 


3 


b:si6; 


16 


2 




:1 


6 


»et._c_*if_d; 


17 


2 




iO 





end , "- - "• 



The following listing is an example of a debug session. 



UCSD Pascal Debugger [IRO.O] 
(BS) Segname=EXAMPLE Procname or # = SETCIFD 

symbolic seg not in mem Line#? 8 
(R ) 
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Hjt br©ak#0 at S==EXAMPL£ PsSETCIFD L#8 
'~ * »m«s=EXAMPLE Procname o " ^ 
rst#8 Le«t#10 Line#? 9 



(BS) S«gn«m«s=EXAMPLE Procnam© or # s SETCIFD 



(R ) 

Hit br©ak#l at S=EXAMPLE P=SETCIFD L#9 
(VL) Varnam© or offset#? D 
(I ) S=EXAMPLE P==SETCIFD V=D 

OOOOe7B2;00 00 94 48 BE E7 00 00 190C-H- 
(Q ) 



The first time the Debugger is entered, the program example isn't 
in memory and hence the symbolic segment isn't in memory. 
However, a break point can still be set symbolically providing 
you know on which line number to stop. For the second break 
point, the symbolic segment is in memory; because of this, its 
first and last line numbers are given. 

Notice the variable D was accessed symbolically, and its contents 
are displayed. 

If you try to access symbolically when the actual code segment is 
in memory and its symbolic segment counterpart isn't present, 
the system displays the error message 'symbolic seg not in mem'. 
Use the Zseg command in the symbolic Debugger to find out if 
symbolic information is available for a particular segment. 



PERFORMANCE MONITOR 

If you are using the Debug Runtime version of the Pascal 
Runtime Library, you have available to you a performance 
monitor that can help you detect performance bottlenecks in your 
program that are related to segment swapping. 

You enable the performance monitor by using the Set Options 
utility. (See GENERAL OPERATIONS*!) The output generated 
by the performance monitor is displayed on the same device that 
you have enabled for the debugger. 

Here is a sample of the performance monitor output: 

Program BcQin 

Seg Fault on DBGTEST at Smg KERNEL P#31 0#23 
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Seg Fault on ERRORHAN at Seg KERNEL P#l 0#28 
S«g Fault on DEBUGGER at Seg KERNEL P#6 0#25 
S«g Fault on SEGDEBUG at Seg KERNEL P#2 0#1 



Information is displayed about each fault (segment fault, stack 
fault or heap fault) that occurs while the performance monitor is 
running. This information can help you to arrange the segments 
of your program to avoid faulting. The performance monitor 
also displays a message indicating when the program has begun 
and when the program has ended. 

The performance monitor can be controlled from the 
Error __ Handling unit. See GENERAL OPERATIONS for 
details. 



1200301:08B 8-27 



DEBUGGER Chapter 8 



8-28 1200301:086 
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MEMORY MANAGEMENT 



OVERVIEW 

This chapter describes the memory management activities 
performed by the Runtime Support Library. The discussions in 
this chapter are intended to give you enough of a basic 
understanding of these memory management activities, so that 
you should have little difficulty v^riting sophisticated programs 
that utilize the Macintosh's memory well. Also, the reasons for 
some of the "DON'Ts" in regard to using the Macintosh Interface 
should become clearer. 

The chapter begins with a section containing a general discussion 
of the machine's memory configuration while a UCSD Pascal 
program is running, and the overall memory management 
strategies used by the Runtime Support Library. 

Next, there is a section which describes the memory management 
activities that take place when special events called "faults" 
occur. Understanding the various kinds of faults and how the 
Runtime Support Library responds to them is important due to 
their adverse effect on a program's performance. 

The final section of this chapter is your guide to the composition 
of the Runtime Support Library. It details the duties performed 
by the major routines within the Runtime Support Library units. 
This information should help you in understanding which 
Runtime Support Library units will be brought into memory 
when you use certain UCSD Pascal constructs. 
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Chapter 9 



MEMORY ORGANIZATION 

All of the memory management activities done by the Runtime 
Support Library affect the Application Heap Zone and the stack. 
Figure 9—1 shows the organization of the region of the 
Macintosh's memory which is dedicated to the Application Heap 
Zone and the stack. 



Area 
(64K) 



High memory 



Stack 



::t.3Ck:;lop 



code seornerit 



code seorrient 



code segment 



Pascal Heap Block 



m1::;c. iinocdted he;iip block:: 



KERNEL code 



p-Machine code 



Lovv' memory 



SP 

App] Limit 

HeapEnd 

Interna] Code 
Pool Region 
(Contains code 
segments , tree 
blocks , m4 other 
allocated blocks.) 

HeapTop 
HeapBase (ad) 



External Code 
Pool Region 
(On a 512K: Macintosh, 
this region is n*njch 
larger arid is -.vhere 
most code segn'ients 
reside .) 



Figure 9—1. Application Heap Zone Organization: 
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Organization At Program Startup 

When a UCSD Pascal program executes, it runs under the control 
of the p— Machine component of the Runtime Support Package. 
A small bootstrap routine contained in one of the UCSD Pascal 
program's resources performs the initial setup of the Application 
Heap Zone, then it reads in the p— Machine emulator (PME) from 
the p~Machine file, and transfers control to it. 

The primary memory configuration task done by this bootstrap 
routine is the establishment of the Pascal Data Area. As 
illustrated in Figure 9—1, this- is a 64K region of memory 
extending from the top of the stack (where the 68000 register A7 
points) to the base of a nonrelocatable block in the Application 
Heap Zone called the Pascal Heap Block. The establishment of 
the Pascal Data Area involves the proper positioning of the 
Pascal Heap Block. To create this nonrelocatable heap block, the 
bootstrap program extends the Application Heap Zone. 

The Pascal Data Area is the region of the Macintosh's memory 
that can be addressed using a UCSD Pascal pointer variable. 
The PME keeps the 68000 register A6 pointed at the base of the 
Pascal Heap Block. (As shown in Figure 9—1, this address is 
given the name HeapBase.) Thus, UCSD Pascal pointer values 
are actually 16— bit byte offsets off of A6. Because of the limited 
range of these pointer values, the bootstrap program is careful 
that the Pascal Data Area is not larger than 64K bytes. 

On a Macintosh with 128K bytes of memory, the size of the 
Pascal Data Area may be smaller than 64K bytes. This is 
because the bootstrap program must also reserve enough space 
below the Pascal Heap Block for the p— Machine code and the 
KERNEL unit from the Runtime Support Library. 
Furthermore, if you have one of the Macintosh debuggers 
supplied by Apple Computer (e.g. MacsBug) installed, there is a 
substantial drain on the size of the Pascal Data Area. If you are 
using a Macintosh with 512K bytes of memory, or the MacWorks 
software on a Lisa, you will always end up with a 64K Pascal 
Data Area. 
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The Pascal Heap Block is where the UCSD Pascal intrinsics new 
^^^ vstrnew allocate variables. It is expanded as necessary to 
accomodate the allocation requests of your program. It is also 
possible for the Runtime Support Library to shrink the size of 
Pascal Heap Block whenever there is surplus space in it created 
by a call to the release , dispose , or vardispose intrinsics. 
Throughout this chapter, the term "Pascal heap" refers to the 
heap contained in the Pascal Heap Block. 

The PME code and the KERNEL unit must always be present 
and cannot move around in memory. Since it must be possible to 
expand the size of the Pascal Heap Block when warranted by the 
UCSD Pascal program's demands for additional variables in the 
Pascal heap, these position locked pieces of code are positioned 
below the heap block. This way, they are out of the way of the 
Pascal heap. They are not allocated inside the Pascal heap, since 
that would "waste" approximately 16K of the 64K p— Machine 
data space. (The p— Machine occupies approximately 12K; 
KERNEL occupies almost 4K.) 

Code Segments And Their Location 

Any code file created by the UCSD Pascal compiler contains one 
or more code segments. A code segment is a section of executable 
code which is brought into memory as a whole unit. Every 
"compilation unit" (a separately compiled UCSD Pascal 
program or unit) results in a "principal segment" of code. In 
addition, there may be "subsidiary segments," if the program or 
unit contains segment routines. 

A code segment may contain either p— code or native code (or 
both). Each segment consists of a collection of routines 
(procedures, functions, and so forth), together with descriptive 
information, and (usually) a pool of constants. The information 
embedded within a principal code segment includes references to 
other compilation units (if any) that it utilizes. The code and 
information in a segment are contiguous since the code segment is 
the "unit of movement" for code. There may be up to 255 
routines within a segment, numbered 1 through 255. 
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At compile time, segments are assigned a name and a number. 
The name is eight characters long. It is used by the Runtime 
Support Library to resolve intersegment references during the 
construction of a program's execution environment, and during 
the maintainance of code files using the Librarian utility. A 
segment's number is used to reference the segment at runtime. 

The segments of a running program compete for space in memory 
with each other. The segments also compete with the stack and 
the Pascal heap for space in the Pascal Data Area. The principal 
constraint (as far as code segments are concerned) is that both 
the calling and called segment must be present in memory for an 
intersegment call to succeed. 

When a code segment which is not in memory is referenced, it is 
read from the disk on which it resides into a purgeable and 
relocatable heap block within the Application Heap Zone. The 
Runtime Support Library keeps a handle to the code segment 
within its execution environment data structures. In terms of the 
memory organization shown in Figure 9—1, code segments are 
located in one of two regions of the Application Heap Zone: the 
Internal Code Pool Region, or the External Code Pool Region. A 
segment remains in memory until it is purged by the Macintosh 
Memory Manager in order to satisfy an allocation request, or 
until a fault occurs which causes the Runtime Support Library to 
purge the block containing the segment. 

On a Macintosh with 128K bytes of memory, the External Code 
Pool Region is very small, and usually becomes clogged with 
small nonpurgeable blocks. This means that most code segments 
are located within the Internal Code Pool Region. On a 
Macintosh with 512K bytes of memory, the situation is 
dramatically different, since the External Code Pool Region is 
quite large and most code segments will be located there. 
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Tasks And Their Stacks 

A task is a routine that is executed concurrently with other 
routines. In UCSD Pascal, a task is known as a process. The 
"main task" is the thread of execution that is the UCSD Pascal 
program as it is started by the Runtime Support Package. The 
program may have subsidiary tasks which it starts itself. 

The stack used by the main task (your program) is the standard 
Macintosh application program stack. .As shown in Figure 9—1, 
this stack grows downward in memory and can extend down to 
where the Macintosh global variable ApplLimit points. As 
described in Inside Macintosh, ApplLimit is the lower limit on the 
stack, and HeapEnd marks the end of the Application Heap Zone. 
The Runtime Support Library manages the settings of ApplLimit 
and HeapEnd for youo In order to maximize your program's 
utilization of the Macintosh's memory, ApplLimit and HeapEnd 
are usually quite close to each other. This means that the shaded 
unused memory region between ApplLimit and HeapEnd shown 
in Figure 9—1 is usually nonexistent. Instead, most of this 
unused memory will show up as unallocated blocks of memory 
inside the Application Heap Zone. 

During execution, each subsidiary task uses its own stack instead 
of the main task stack. The stacks for all subsidiary tasks are 
allocated within the Pascal heap. The size of a subsidiary task's 
stack is specified when it is started as a parameter to the start 
intrinsic. As described in the P -MACHINE ARCHITECTURE 
chapter, the p— Machine has a Task Information Block (TIB) for 
each task that has been started. One field in a TIB is called 
SPLOW, and is the lower limit on the stack pointer when that 
task is being executed. For the main task, SPLOW always points 
to the same memory location as the Macintosh ApplLimit 
variable. The Macintosh's "stack sniffer" (a vertical retrace 
process that checks that the stack has not encroached on the 
Application Heap Zone) is enabled while the main task is 
executing, and is disabled whenever a subsidiary task is 
executing. 
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Another field of importance in a TIB is the TASKSLOP field. 
This field specifies the amount of unused stack space that must 
be available for use after a call to a procedure has occurred, and 
any local variables have been allocated on the stack. For the 
main task, this unused stack space is the "stack slop" area shown 
in Figure 9—1. 

TASKSLOP can be adjusted by a task via an entry point in the 
Error_Handling unit. (See the GENERAL OPERATIONS 
chapter.) For the main task, the default setting for TASKSLOP 
is 2560 (5K bytes), and the minimum setting is 1024 (2K bytes). 
For subsidiary tasks, the default and minimum settings are both 
40 words. (Adjusting the main task's stack slop setting can affect 
the behavior of your program. This is described in the 
MACINTOSH INTERFACE chapter.) 

Because of the sizeable amount of stack space that they can 
require, it often isn't practical to call Macintosh Toolbox routines 
or do I/O operations on disk files from within a subsidiary task. 

Controlling Segment Residence 

As mentioned previously, a code segment is loaded into a 
purgeable and relocatable heap block within the Application 
Heap Zone. Using the memlock and memswap intrinsics, your 
progranm can control the residency of a code segment. (See The 
UCSD Pascal Handbook for a discussion on how to use memlock 
^^^ n^emswap . The discussion here is aimed at explaining how 
memlock and memswap are implemented on the Macintosh.) 

'^^^ n^^mlock instrinsic increments a residency counter for a 
segment, and memswap decrements this same counter. The 
transition of the counter's value from zero to one causes the 
Runtime Support Library to do a Macintosh Memory Manager 
HNoPurge operation on the heap zone block containing the code 
segment. As described in Inside Macintosh, this has the effect of 
making the heap block nonpurgeable, but still moveable. 
Conversely, a transition of the counter's value from one to zero 
results in an HPurge operation being done, which makes the heap 
block purgeable again. 
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In addition to the controlling of code segment residency through 
memlock and memswap , some additional residency controls are 
applied by the P\'IE when a Macintosh Interface routine written 
in assembly language or an in— line procedure is called. 

When handling a call to an assembly language routine^ the PME 
does a memlock operation on the calling segment, and if 
necessary, an HLock operation on the heap block containing the 
code segment in which the assembly language routine resides. 
This insures that the calling code segment cannot be purged, and 
that the code for the assembly language routine cannot be moved 
during the execution of that routine. After the assembly 
language routine returns to the PME, a memswap operation is 
done on the calling segment, and an HUnLock operation is done 
on the called segment. 

Similiarly, when an in— line procedure is called (i.e. an RCALL 
p— code is executed), the PME does a HLock operation on the 
current code segment before executing the Macintosh trap 
instruction in order to prevent it from being moved or purged. 

Actually, the mechanism used by the PME for doing HLock and 
HUnLock operations on code segments is more complicated than 
described in the preceeding paragraphs. Because it is possible for 
a call to a Macintosh Toolbox routine to result in the activation 
of an "action procedure," situations can arise where HLock 
operations on a given segment must be nested, and then undone 
so that the segment remains locked until the initial Toolbox call 
is completed. To implement this sort of thing, a counter used for 
HLock/HUnLock operations is also kept for every segment. This 
counter is used in much the same way as the other residency 
counter used by memlock and memswap to control when HPurge 
and HNoPurge operations should be done. 
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FAULT HANDLING 

When memory space is required by the stack or the Pascal heap, 
or entry into a nonresident code segment is attempted, a fault is 
issued. When this happens, a process called the Faulthandler 
within the Runtime Support Library KERNEL unit is activated. 
This Faulthandler process is started at bootstrap time. Most of 
the time it is idle, since it does a wait operation on a Pascal 
semaphore variable. When the semaphore is signaled (either by 
the PME or another unit within the Runtime Support Library), 
the Faulthandler immediately begins executing, since it is the 
highest priority task. 

In a special tricky maneuver, the Faulthandler switches from its 
tiny subsidiary task stack to the main task stack. This allows 
the Faulthandler to take advantage of the stack slop space (which 
is guaranteed to be at least 2K bytes in size) for its operations. 
This is one reason why the Error _ Handling unit will not let you 
set the stack slop below 2K bytes: there must be enough slop for 
the Faulthandler to do its job. This arrangement of having the 
Faulthandler use the main task's stack slop area works especially 
well, since it allows the Faulthandler to economize on space in its 
own stack, without having to forgo the ability to have the screen 
image preserved when it is marred by "disk swap boxes". (The 
Faulthandler causes a disk swap box to appear on the screen 
whenever it attempts to read in a code segment which resides on 
a mounted disk that is not physically present in a disk drive.) It 
is also convenient that the manner of disappearance for ail disk 
swap boxes (whether they appear due to segment faults or normal 
disk file I/O operations) can be controlled through the 
adjustment of the size of the main task stack slop area. (See the 
discussion in the MACINTOSH INTERFACE chapter on how 
setting the stack slop influences the disappearance of "disk swap 
boxes.") 

The PME detects two kinds of faults: segment faults and stack 
faults. A segment fault occurs when a reference to a nonresident 
segment happens. Stack faults occur when there isn't enough 
unused stack space between the stack pointer and the stack limit. 
The Runtime Support Library causes a third type of fault, called 
a heap fault, when there isn't sufficient space in the Pascal Heap 



1200301:09B 9-9 



MEMORY M.\NAGEMENT Chapter 9 

Block to satisfy an allocation request in the Pascal heap. 

The Memory Collector 

.Ail important part of the memory management software within 
the Runtime Support Library is the Application Heap Zone "grow 
zone" function called the Memory Collector. (See Inside 
Macintosh for a complete introduction to grow zone functions.) 
Like any grow zone function, the Memory Collector can be 
activated any time the Macintosh Memory Manager is called 
upon to allocate some memory in the Application Heap Zone. 
The Faulthandler also calls the Memory Collector directly prior 
to making a call to the Macintosh Memory Manager. This is 
done primarily to insure that the Application Heap Zone is 
always extended as far as possible toward the stack, and that 
heap blocks containing code segments are purged only when there 
is no other possible means of obtaining the required memory. 
(The normal inclination of the Macintosh Memory Manager is to 
purge things from the heap zone first, then expand the zone 
toward the stack if necessary.) 

Through a set of variables in the KERNEL^s data, the Memory 
Collector can tell what kind of fault the Faulthandler is 
attempting to handle, and it tailors its actions to suit that 
particular situation. First the Memory Collector calculates the 
amount of unused space in the main task stack and in the Pascal 
heap. If the handling of a heap fault is currently in progress, the 
Memory Collector tries to gain the needed space by expanding 
the Application Heap Zone. (In terms of Figure 9—1, this is done 
by repositioning ApplLimit and HeapEnd higher in memory.) 
When a stack fault is in progress, the Memory Collector takes 
away any excess space in the Pascal heap by shrinking the Pascal 
Heap Block. When neither a stack or heap fault is being handled 
(i.e. when a segment fault occurs), the needed bytes of space are 
collected from both the stack and the Pascal heap in proportion 
to the amount of unused space in each. 
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EfTect On Other Heap Zones 

As described in the Memory Manager documentation in Inside 
Macintosh, you can set aside a heap block within the Application 
Heap Zone and initialize it as a heap zone in its own right. You 
can then establish such a heap zone as the "current" zone, and 
allocate heap blocks within that zone. 

Creating additional heap zones in this fashion can be done 
without interfering with the activities of the Faulthandler. In 
fact, establishing such a zone is one way of preventing the 
Faulthandler from utilizing a region of memory for code 
segments, or anything else. This is because the Faulthandler 
makes the current zone the Application Heap Zone prior to 
making any Macintosh Memory Manager requests. After it has 
handled the fault, the Faulthandler restores the setting of the 
current zone to what it was when it started its activities. 



Segment Faults 

Segment faults are handled by first calling the Memory Collector, 
then doing a NewHandle or ReAllocHandle Memory Manager 
request. (ReAllocHandle is used to bring in a code segment that 
was previously faulted in and subsequently purged.) Since the 
Memory Collector only collects space by giving up space in the 
Pascal heap or the stack and doesn't actually purge any heap 
blocks from the Application Heap Zone, the Faulthandler relies 
on the Macintosh Memory Manager to purge whatever purgeable 
heap blocks it has to in order to find enough space for the 
segment being faulted in. The Faulthandler does a memlock 
operation on the currently executing segment to prevent it from 
being purged by the Macintosh Memory Manager. This is 
necessary because the p— code instruction on which the fault 
occurred must be re— executed by the PME. A fatal runtime 
error is reported if it isn't possible to free up enough contiguous 
memory for the code segment, or if an I/O error is detected when 
the attempt is made to read the segment into memory. 
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Heap Faults 

The handling of a heap fault begins with an attempt to expand 
the Pascal Heap Block. This is done by calling the Macintosh 
Memory Manager ResrvMem and SetPtrSize routines. If this 
initial attempt fails, the Memory Collector is given a chance to 
take space away from the stack (through an expansion of the 
Application Heap Zone), and the enlargement of the Pascal Heap 
Block is reattempted. If this second attempt fails, the fatal 
runtime error "Heap Expansion Error" is reported. 

It is possible to get a heap expansion error even in situations 
where there is plenty of space available to the Application Heap 
Zone. This happens when there is a locked or nonrelocatable 
heap block in the way of the expansion of the Pascal Heap Block. 
This is why it is a bad idea to allocate nonrelocatable heap blocks 
or lock relocatable blocks in a program which intends to allocate 
variables in the Pascal heap. 

Stack Faults 

A stack fault within a subsidiary task results in a fatal runtime 
error, since the stack for a subsidiary task cannot be expanded. 
A stack fault within the main task occurs when the value (SP — 
TASK _ SLOP) is less than SPLOW (ApplLimit). Stack faults 
are handled as follows. First the desired new setting for 
ApplLimit is calculated and compared to HeapEnd. If this new 
ApplLimit setting (termed "NewApplLimit" in the remainder of 
this discussion) is greater than HeapEnd, then all the 
Faulthandler has to do is set ApplLimit to the value 
NewApplLimit. Otherwise, the Faulthandler must attempt to 
shrink the Application Heap Zone before setting ApplLimit to its 
new value. 



The shrinking of the Application Heap Zone is the most elaborate 
task done by the Faulthandler. First the Faulthandler scans the 
blocks in the zone above the Pascal Heap Block. During this 
scan, it calculates the maximum amount of space that it can turn 
into stack space, and records the location of the highest 
immovable block in the zone. If the highest immovable block is 
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the Pascal Heap Block, the Faulthandler calls the Memory 
Collector in the hope that the amount of space it can reclaim 
from the Pascal Heap Block will result in enough stack space once 
all the heap blocks are compacted up against the Pascal Heap 
Block. (Basically, this strategy results in code segments being 
purged only when absolutely necessary, but at the possible 
expense of additional heap faults.) 

Next, the Faulthandler begins compacting the Application Heap 
Zone. If the Memory Collector wasn't called, or if it was unable 
to free up enough space, the Faulthandler purges any blocks that 
it can during the compaction process, until it judges that enough 
space has been freed. Throughout the compaction process, any 
nonpurgeable blocks are moved downward in memory against the 
highest immovable block in the zone, and adjacent free blocks are 
combined. 



After the compaction and purging process is complete, a new 
value for HeapEnd is established. If this lowest possible HeapEnd 
is still above NewApplLimit, a stack overflow runtime error is 
reported. Otherwise, ApplLimit is set so as to give the stack the 
space that it needs, plus half of any surplus space reclaimed from 
the Application Heap Zone. 

The compaction and purging process described here does not 
affect the contents of the External Code Pool Region. The 
Macintosh Memory Manager does all of the management of that 
region of the Application Heap Zone. 



RUNTIME SUPPORT LIBRARY 

The following tables identify the Runtime Support Library 
routines that the Pascal compiler generates calls to. The first 
table summarizes the routines in each unit. The second table is 
indexed by the names of the UCSD Pascal intrinsics that result in 
calls to Runtime Support Library routines. 
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Unit 



Proc # Proc Name Pascal Construct 



CONCURRE 


3 


SStartP 


start 




4 


SStopP 


<exit code> 




6 


SExitProcess 


exit 


EXTRAJiP:A 


id 


SDispose 


dispose 




3 


SVarNew 


varnew 




4 


SMemLock 


memlock 




5 


SMem Avail 


memavail 




6 


SVar Avail 


varavail 




7 


SMemSwap 


memswap 


EXTRAJO 


2 


FBlocklO 


blockread, block write 


FILEOPS 


2 


FOpen 


reset, rewrite 




3 


FClose 


close, < exit code> 




4 


FInit 


< entry code> 




5 


FSeek 


seek 




6 


FReset 


reset 


HEAPOPS 


2 


SMark 


mark 




3 


SRelease 


release 




4 


SNew 


new 


KERNEL 


15 


Moveleft 


moveleft 




16 


MoveRight 


moveri^ht 




17 


SExit 


exit 




20 


Time 


time 




21 


Fillchar 


fillchar 




22 


Scan 


scan 




23 


lOCheck 


< after I/O operation > 




29 


SAttach 


attach 




30 


lOResult 


ioresult 




32 


PwrOfTen 


pwroften 




35 


Halt 


halt 




37 


Idsearch 


idsearch 




38 


Treesearch 


treesearch 


LONGOPS 


2 


Decops 


<long integer 
arithmetic >, 
trunc,str 
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3 


FReadDec 


read,readln 




4 


FWriteDec 


write, writeln 


OSUTIL 


3 


IntToStr 


str,PASCALIO 




4 


Int2ToStr 


str,PASCALIO 




5 


GotlntStr 


PASCALIO 




6 


U pease 


PASCALIO,EXTRAHEA 


PASCALIO 


3 


FGet 


^^t. 




4 


FPut 


put 




5 


FEof 


eof 




6 


FEoln 


eoln 




7 


FReadInt 


read,readln 




8 


FWriteInt 


write, writeln 




9 


FReadChar 


read,readln 




10 


FReadString 


read,readln 




11 


FWriteString 


write, writeln 




12 


FWriteBytes 


write, writeln 




13 


FReadln 


readln 




14 


FWriteln 


wTiteln 




15 


FWriteChar 


write, writeln 




16 


FPage 


page 




17 


Rdlnt2 


read, readln 




18 


Wrlnt2 


write, writeln 




19 


ReadBytes 


EXTRAIO 




20 


WriteBytes 


EXTR.AIO 




21 


ReadTextChar 


REALOPS 


REALOPS 


2 


Sin 


sin 




3 


Cos 


cos 




4 


Log 


log 




5 


Ln 


in 




6 


AT an 


atan 




7 


Exp 


exp 




8 


Sqrt 


sqrt 




9 


FReadReal 


read, readln 




10 


FWriteReal 


write, writeln 


STRINGOPS 


2 


SConcat 


concat 




3 


Slnsert 


insert 




4 


SCopy 


copy 




5 


SDelete 


delete 




6 


SPos 


pos 
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Intrinsic 


Param Type 


Routine Called 


arctan 




REAL0PS,6 


atan 




RE.4LOPS,6 


attach 




KERNEL, 29 


blockread 




EXTRAIO,2 


blockwrite 




EXTRA]0,2 


close 




FILE0PS,3 


concat 




STRING0PS,2 


copy 




STRING0PS,4 


cos 




RE.4LOPS,3 


delete 




STRLNG0PS,5 


dispose 




EXTRAHEA,2 


eof 




PASCALI0,5 


eoln 




PASCAL10,6 


exit 


<proc/func> 


KERNEL, 17 


exit 


program 


KERNEL, 17 


exit 


process 


C0NCURRE,6 


exp 




REAL0PS,7 


fillchar 




KERNEL, 21 


set 




PASCALI0,3 


halt 




KERNEL,35 


idsearch 




KERNEL,37 


insert 




STRING0PS,3 


ioresult 




KERNEL,30 


k 




REAL0PS,5 


Jo?i 




REAL0PS,4 


mark 




HEAP0PS,2 


memavail 




EXTRAHEA,5 


memlock 




EXTRAHEA,4 


memswap 




EXTRAHEA,7 


moveleft 




KERNEL, 15 


moveright 




KERNEL, 16 


new 




HEAF0PS,4 


page 




PASCAL10,16 


pos 




STRING0PS,6 


put 




PASCALI0,4 


pwroften 




KERNEL,32 


read 


char 


PASCALI0,9 


read 


integer 


PASCALI0,7 


read 


integer2 


PASCALI0,17 


read 


Long Integer 


L0NG0PS,3 
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read 


PA of char 


PASC.ALIO,10 


read 


real 


RE.\L0PS,9 


read 


string; 


PASCALlO,10 


readln 




PASCALI0,13 


readln 


char 


PASaALI0,9 


readln 


integer 


PASC.ALIO,? 


readln 


integ;er2 


PASa\LI0,17 


readln 


Long Integer 


LONGOPS.S 


readln 


FA of char 


PASaALIO,10 


readln 


real 


REAL0PS,9 


readln 


string 


PASCALIO,10 


release 




HE.AP0PS,3 


reset 


(nanned) 


FILE0PS,2 


reset 


(nameless) 


FILE0PS,6 


rewrite 




FILE0PS,2 


scan 




KERNEL,22 


seek 




FILE0PS,5 


sin 




REAL0PS,2 


sqrt 




RE.AL0PS,8 


start 




C0NCURRE,3 


str 


integer 


0SUTIL,3 


str 


■ integer2 


0SUTIL,4 


str 


Long Integer 


L0NG0PS,2 


time 




KERNEL,20 


treesearch 




KERNEL,38 


trunc 


Long Integer 


L0xNG0PS,2 


var avail 




EXTRAHEA,6 


varnew 




EXTRAHEA,3 


write 


char 


PASCALI0,15 


write 


integer 


PASCALI0,8 


write 


integer2 


PASCALI0,18 


write 


PA of char 


PASaALI0,12 


write 


real 


RE.4LOPS,10 


write 


string 


PASCALI0,11 


writeln 




PASCALI0,14 


writeln 


char 


PASCALI0,15 


writeln 


integer 


PASCALI0,8 


writeln 


integer2 


PASCALI0,18 


writeln 


PA of char 


PASCALI0,12 


writeln 


real 


RE.ALOPS.IO 


writeln 


string 


PASCALI0,11 


< after I/0> 




KERNEL, 23 


<entry code> 




FILE0PS,4 
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<exit code> C0NCURRE,4 

<exit code> FILE0PS,3 

<Long integer arith> L0NG0PS,2 
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OVERVIEW 

Object code produced by the UCSD Pascal compiler is p— code 
rather than 68000 machine ("native") code. This p—code is 
object code for the p— Machine, which is an idealized machine. 
This chapter describes the p— Machine in general and the p~codes 
that are produced by the compiler. The information contained in 
this chapter is most useful when you are debugging a UCSD 
Pascal program. 

p—Code is designed to be compact, so that programs in p—code 
are much shorter than equivalent programs in native code, 
p— Code is also designed to be easily generated by a compiler. 

Emulative Execution 



The "p" in p—code and p— Machine stands for pseudo. The 
p— Machine emulator program is written in 68000 native code for 
the Macintosh. It is responsible for executing p—code instructions 
and interfacing with the Macintosh operating system to obtain 
system services. The p— Machine emulator is also referred to as 
the PME. 

At runtime, the user's program (or a portion of it) is in main 
memory. The PME fetches each p—code instruction in sequence, 
and performs the appropriate action. 
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STACK ENVIRONMENT 

UCSD Pascal programs manipulate data in the stack and the 
heap. The stack is used for static variables, bookkeeping 
information about procedure and function calls, and evaluation of 
expressions. The heap is used for dynamic variables, including 
the structures that describe a program's environment. It is also 
used to store private stacks for subsidiary processes and to store 
code segments that are position— locked. 

The stack is an integral part of the p— Machine architecture. 
Most p—code instructions affect the stack in one way or another. 
Each time a procedure is called, an activation record is created on 
the stack which contains some housekeeping information about 
the calling environment. Space for the procedure's variables is 
allocated along with some extra space for expression evaluation. 

The heap is also an integral part of the system, but is primarily 
supported by the Runtime Support Library, rather than the 
p— Machine. The heap contains global data for programs and 
units (data not declared inside of a named procedure). The 
global data is allocated when a program is started and remains in 
memory until the program is terminated. The heap also contains 
SIBs, ERECs, and EYECs. 
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Activation Records 

An activation record is created for each invocation of an active 
routine (procedure or function). Figure 10—1 shows the structure 
of an activation record. 



MSCV < 



lo'.v •addr'js? 



tempor ary expression 
results 



MSSTAT 



MSDYN 



MS IPC 



MSENV 



MSPROC 



local variables and temporaries 
(DATASIZE words) 



parameters 



funtion result 



temporary expression results 



MSCV of caller 



SP 



MP 



high address 
Figure 10—1. Activation Record. 
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The parts of an activation record are: 

1. Mark Stack Control Word (MSCW). This area contains five 
words of housekeeping information: 

a. MSSTAT — - pointer to the activation record of the lexical 
parent. 

b. MSDYN — pointer to the activation record of the caller. 

c. MSIPC — segment relative byte pointer to point of call in 
the caller. 

d. MSENV — EREC pointer of the caller. 

e. MSPROC — procedure number of caller. 

2. Local and temporary variables. This area is DATA__SIZE 
words long. The DATA_SIZE value is taken from the code 
segment that contains the procedure being called. See the 
CODE FILE FORMAT section for more information. 

3. Parameters. This area (which may be empty) contains: 

ja. Addresses — for VAR parameters, and record and array 
value parameters. 

b. Values — for other value parameters. 

4. Function value. This area is present only for functions, and 
is the size of the function result (one, two, or four words). 



CODE FILE FORMAT 

A code file is composed of a segment dictionary and at least one 
code segment. 

The first block of the code file contains the first record of that 
file's segment dictionary. A segment dictionary consists of a 
linked list of dictionary records; if the dictionary is longer than 
one record, subsequent records are embedded in the code file. 
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These are each one block long, and are located between code 
segments. 

A single dictionary record can describe up to 16 distinct 
segments. The information describing a segment is contained in 
six arrays; the information describing a segment is found by using 
a single index value to select a component from each of these 
arrays. Entries in the segment dictionary describe only segments 
whose code bodies are included in the code file. 

The Segment Dictionary 

The following Pascal declarations describe a segment dictionary 
record: 



CONST Max_Dic_Seg - 15; ^maximum seg diet record entryj 
TYPE Seg„DI c_Range « . . Max_0 i c_Seg ; Jrange for seg diet entrles| 
Segment^Nome - PACKED ARRAY [0..7] OF CHAR; ^segment name | 



Isegment typesj 

Seg_Type » (No_Seg, 

Prog_Seg. 
Uni t_Seg, 
Proc^Seg, 
Sepr t_Seg) ; 



empty dictionary entry| 
program outer segment] 
unit outer segment] 
program or unit] 
Jnotive code segment] 



^machine types] 

M^Type - (M^Psuedo, M 6889, M POP 11, M 8080, M Z 80, 

M_GA 440, M_6502, M_6800. M 9900, 

M_8086, M_Z8000, M_68000, M.HP87); 

fp-mochine versions] 

Version - (Unknown, il, ll_1. Ml, IV, V. VI, VII); 

Isegment dictionary record] 
Seg.Oict - RECORD 
Di sk_l nfo: 

ARRAY [Seg_Dic_Range] OF Jdisk info entries] 
RECORD 

Code^Addr: Integer; Isegment starting block] 
Code_Leng: integer; jwords in segment] 
END Jof RECORD]; 
Seg^Nome : 

ARRAY [Seg_DI c^Range] OF Segmen t_Name ; 
Seg_Mi sc : 

ARRAY [Seg^Di c^Range] OF |misc entries] 
PACKED RECORD 



segment type] 
reserved for future use] 
need to be 11 nked?] 
segment relocatable?] 



Seg_Type: Seg_Types; 
Filler: . . 3 1 ; 
Has_Llnk_l nf o: boolean; 
Relocatable: boolean; 
END |of PACKED RECORD]; 
Seg^Text : 

ARRAY [Seg_Dic_Range] OF integer; | interface text] 
Seg_ Info: 

ARRAY {Seg_Dlc_Range3 OF ^segment Information entries] 
PACKED RECORD 

Seg^Num: 0..255; | local segment number] 

1200301:10B 10-5 



P-MACHINE ARCHITECTURE Chapter 10 



M^Type; M^lypes ', |machine type| 

Filler: 0,.1: jreserved for future use| 

Major Version: Versior^s; |p-Machlne version^ 
END |of~PACKED RECOROJ; 
Seg^Foml y : 

ARRAY [Seg^Di c^Ronge] OF ^segment family entries! 
RECORD 

CASE Seg^Types OF 
Uni t_Seg, Prog_Seg 



data s t zej 

segments in comp unit| 

num segments in filej 

# of biks interface text] 



(Dato^Size: integer; 
Seg_Ref s : i n teger ; 
Max„Seg_Num: integer 
Tex t_Si ze : i n teger ) ; 
Seprt_Seg, Proc_Seg: 

(Prog Name: Segmen t_Name ) ; |host unit name| 
END Jof Seg^Fomlyl; 
Next Diet: integer; |block num of next dictionary record| 
Filler: ARRAY [1..2] OF integer; 

Checksum: integer; Jsee OuickStort in Chapter 6| 
Ped_Block: integer; jsee OuickStort in Chopter 6j 
Ped Blk^Count: integer; jsee OuickStort in Chapter 6j 
Part_Number: PACKED ARRAY [0..7] of 0..15; 
Copy^Note: string[77]; ^copyright notice^ 
D ic t_6y te_Sex : integer; ^machine sex (Sex » 1)! 
END |of SEG^OICTJ ; 



DISK _ INFO contains information about the segment's location 
within the file. Segment code always starts on a block boundary. 
CODE_ADDR is the number of the block where the segment 
code starts (relative to the start of the code file). CODE^LENG 
is the number of 16— bit words in the segment. This size includes 
the relocation list but doesn't include the segment reference list. 
All unused entries in this array are zero. 

SEG_NAME contains the first eight characters of the program, 
unit, segment, or assembly procedure name. Unused entries are 
filled with blanks. 

SEG_MISC contains miscellaneous information about the 
segment. SEG_TYPE indicates the type of segment. 
PROG_SEG and UNIT_SEG are outer segments of programs 
and units, respectively. PROC__SEG is a segment routine within 
either a unit or a program. 

SEG__TEXT contains the starting block of the segment's 
INTERFACE text section, relative to the start of the code file. 
The INTERFACE text section can appear anywhere within the 
code file that contains the code segment it describes. The 
SEG_TEXT array entry, in conjunction with the TEXT _ SIZE 
field in the SEG_FAMLY record, indicates the address and 
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length of the INTERFACE section in blocks. The INTERFACE 
text section always starts on a block boundary. Only segments 
with a SEC _ TYPE of UNIT_SEG may have INTERFACE 
sections. All other segments and unused entries are zero— filled. 

SEC _ INFO contains further information about the segment. 
SEG_NUM is the segment number. M_TYPE tells what kind 
of object code is in the segment. If there is any native code in the 
segment, then M_TYPE will have one of the processor—specific 
M_ TYPE'S. If the segment consists exclusively of p— code, then 
its M_TYPE is M_PSUEDO. MAJOR_YERSION gives the 
version of the p— Machine on which the code file is intended to 



SEG___FAMLY contains information about the code segment's 
compilation unit. The information contained in this array 
depends on whether SEC __ TYPES indicates a principal or a 
subsidiary segment. 

If the segment is a subsidiary segment, then SEG__FAMLY 
contains the first eight significant characters of the parent 
compilation unit's name, stored in PROG __ NAME. 

If the segment is a principal segment, then the information in 
SEG_FAMLY consists of four fields: 

• DATA^SIZE is the number of words in this segment's base 
data segment. The variables of principal segments are 
referenced from any location, including their own outer 
routine bodies, via global loads and stores (rather than local 
operations). Therefore, the DATA_SIZE field associated 
with the body of a code segment is 0, so that no superfluous 
memory will be allocated in an unused local data area. 
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• SEG^REFS is the size in words of the segment reference list 
for this segment. 

• MAX_SEG_NUM is the total number of segment numbers 
assigned to this compilation unit. MAX_SEG_NUM 
includes all segments with assigned numbers, regardless of 
whether the segment body is contained in this file or not. 

• TEXT _ SIZE is the number of blocks of INTERFACE text 
within the compilation unit. TEXT^SIZE is used in 
conjunction with the SEG^TEXT array to specify the 
INTERFACE text for a compilation unit of type 
UNIT^SEG; it is zero— filled for all other compilation unit 
types. 

If the segment is unused (SEG_ TYPES = NO_SEG), then 
SEG FAMLY is zero-filled. 



NEXT__DICT contains the block number of the next segment 
dictionary record, relative to the start of the code file. In the last 
record of the segment dictionary, NEXT__DICT is zero. 

FART_NUM contains the SofTech Microsystems internal part 
number for the file. 



FILLER is reserved, for future use and should always be 
zero— filled. 



COFY_NOTE is reserved for a copyright message, which can be 
created with either the Librarian utility or via a compiler 
directive. 

DICT_ BYTE _ SEX indicates the byte sex of the segment 
dictionary. It is a full word that contains the value 1, with the 
same byte sex as the rest of the dictionary record. On the 
Macintosh, the segment dictionary and all code segments are 
most— significant— byte— first sex. 
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Code Segment Structure 

The beginning (low address) of a code segment contains the 
following information about the segment: 

• segment— relative pointer to the procedure dictionary 

• segment— relative pointer to the relocation list 

• the 8— character name of the segment (four words) 

• byte sex indicator 

• segment— relative pointer to the constant pool 

• real size indicator 

• part number (two words) 

Figure 10—2 illustrates a code segment as it would be loaded into 
memory. 
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lov/ address 





y 


















proc. dictionary pointer 








relocation list pointer 










se'^rn^^nt 


S character symbolic 
name of segn-ient 


header "" 


byte sex indicator word = 1 




constant pool pointer 














real numiber size 




part number 










••• 


e>::itic 








data size 








*- 






proc. 
code ''' 


object code 
for procedure 2 




SI! ill IS ill yiii 111 11 11 


iMii \ % 






constant pool 
















/ 


pointer to procedure W 


or 00. 




^i-4 < 


pointer to procedure 2 


diet . 






, 




pointer to procedure 1 






number of procedures 










relocation list 













hiijh address 
Figure 10—2. Executable Code Segment Format. 
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The Routine Dictionary 

The first word in a code segment points to word of the 
segment's routine dictionary (also called the procedure 
dictionary). The routine dictionary is a list of pointers to the 
code for each routine in the segment. Each routine dictionary 
pointer is a segment— relative word pointer. 

Routines within a segment are numbered 1 through 255. A 
routine's number is a negative index into the routine dictionary; 
the n'th word in the dictionary contains a pointer to the code for 
routine n. 

The first word (word 0) of the dictionary contains the number of 
routines in the segment. 

Routine Code 

The code of a routine consists of two words: DATA_SIZE and 
EXIT^IC, followed by the executable object code. The object 
code may be entirely p— code, entirely native code, or a mixture 
of the two. 

DATA__SIZE is the number of words of local data space that 
must be allocated when the procedure is called. DATA__SIZE 
doesn't include parameters; the routine's parameters are assumed 
to already be on the stack. The first executable instruction starts 
at the word immediately following the DATA_SIZE word. If 
the first executable instruction is native code, DATA_SIZE is 
negative. No local data space is allocated for assembly language 
procedures. 

If this first instruction is a p—code instruction, then EXIT_IC is 
a segment— relative byte pointer to the code that must be 
executed when the procedure is exited. Otherwise, EXIT__IC is 
undefined at runtime. 
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The Constant Pool/Real Constants 

Mxiiti— word constants are stored together in a single constant 
pool for the entire segment. The constant pool begins 
immediately after the last body of procedure code in the segment. 

The location of the constant pool is contained in the constant 
pool pointer, a segment— relative word pointer that immediately 
follows the byte sex indicator word at the beginning of the 
segment; it points to the low address of the constant pool. If the 
constant pool pointer is equal to 0, the segment doesn't contain a 
constant pool. 

Constants are referenced by word offsets relative to the beginning 
(low address) of the constant pool. 

The constant pool is divided into two subpools: the real pool and 
the main pooL 

The first word- of the constant pool points to the beginning of the 
real pool. This is a word pointer relative to the start of the 
constant pool; if there are no real constants in the code segment, 
this word will be 0. The first word of the real pool contains the 
number of real constants in the real pool. 

Figure 10—3 shows the format of a constant pool with an 
embedded real subpooL 

Real constants are compiled to a processor— independent 
("canonical") format and are converted, at segment load time, 
into a processor— specific internal format. 

The real size at compilation time is embedded in every code 
segment (even though it may not reference any reals). The 
REAL __ SIZE word at the base of the segment contains this 
value. 
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lov/ address 




r«?al subpool point 


er 


m hm subpool 


number of real cons 


tants 1 


real subpool 


mam subpool 



high address 
Figure 10—3. Constant Pool 

A real constant is represented by a four to six word record. The 
first word contains a signed integer representing the exponent 
value. The following words contain the mantissa digits. A 
mantissa word representing significant mantissa digits contains 
an integer whose absolute value is between and 9999; its value 
corresponds to four mantissa digits. The first mantissa word is 
signed and, thus, contains the mantissa sign. The second and 
succeeding mantissa word may contain a negative value; in this 
case, it doesn't contain any significant digits and is disregarded 
when constructing the internal representation of the real 
constant. It serves as a terminator word for the constant 
conversion routines. The decimal point is defined to lie to the 
right of the four digits in the last valid (used) mantissa word. 
The digits in the last mantissa word are left— justified. For 
example, if the real value is 1.1, the first mantissa word contains 
1100 decimal (or 044C hexadecimal). 

Real constants are converted to native machine format when a 
code segment is loaded into memory. 
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The Relocation List 

The last (high address) body of information in a code segment is 
the relocation list. The second pointer at the beginning of the 
code segment points to the last (highest address) word in the 
relocation list. This pointer is a segment relative word pointer; if 
there is no relocation list, it is equal to 0. 

The relocation list contains all the information necessary to fix 
any absolute addresses used by code within the segment, 
whenever the segment is loaded or moved in memory. Such 
absolute addresses are needed only by native code. Segmejits 
containing exclusively p— code are completely position- 
independent; no relocation list is needed. 

A relocation list consists of or more relocation sublists. Each 
sublist contains code offsets for objects that must be relocated, 
and specifies the type of relocation that must be done. Sublists 
can occur in any order, and more than one sublist can have the 
same type of relocation. 

The following code fragment shows the format of the heading of 
a sublist: 



Loc_Types«(Re I oc_End , Jsignols end of entire relocation fistf 

Seg„Rel, jrelative to address of base of this segment! 

Base_Re I . Jrelative to data segment given in DATASEGNUM| 

I n ter p^Re I , I re I a t i ve to PME ' s i n tef p— re I a t i ve table| 

Proc„Rel); Jrelative to address of 1st instruction in procf 

L i s t^Heade r»PACKED RECORD 

List„Size: integer; fnumber of pointers in sublistf 
Data_Seg_Num: 8.. 255; | local segment number for Base„Rel| 
Re!oc_Type: Loc_Types; {relocation type of sublist entries^ 
END; 



Each sublist contains a LIST _ HEADER and or more segment 
relative byte pointers to the objects which must be relocated. 
The RELOC_TYPE field in the LIST _ HEADER defines what 
kind of relocation will be applied to all objects designated by the 
sublist. 
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The DATA_SEG_NUM field in the LIST _ HEADER is used 
only in sublists with a RELOC___TYPE of BASE_REL, and in 
all other cases should be zeroed. It specifies the local segment 
number of the data segment to which all the sublist's pointers are 
relative. 

The LIST__SIZE field in the LIST_HEADER contains the 
number of pointers in the sublist. 

Figure 10—4 illustrates a relocation list with multiple sublists. 

The relocation list is intended to be used from high address down 
to low address. Each sublist in turn is processed from high to 
low until a sublist with a relocation type of Reloc_End is 
encountered. The DATA_SEG_NUM should be for the 
terminating entry; LIST _ SIZE is left out for the terminating 
entry. 
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Figure 10—4. Relocation List. 
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Segment Reference List 

In the p— Machine, each code segment is associated at nintime 
with an "environnaent vector" that defines the mapping of each 
segment number to the segment or unit that it designates. Each 
compilation unit has its own independent (that is, local) series of 
segment numbers, and its own environment vector. In this way, 
a particular unit may be referenced by more than one unit, and 
each unit that references it may use a different segment number. 

When a compilation unit references one or more other 
compilation units, the principal segment of the compilation 
contains a segment reference list. This list defines the connection 
between the segment numbers that appear in the object code 
(they are created by the compiler), and the names of the units to 
which they refer. Only principal segments contain segment 
reference lists. 

The segment reference list, when present, is located above the 
relocation list (it grows toward higher memory addresses). The 
list is used by the operating system at associate time. It doesn't 
occupy any space in memory during the program's execution 
(since the segment length field doesn't include it). 

The segment reference list associates the name of each 
compilation unit (which doesn't change) with the number by 
which that compilation unit is referenced. 

The following Pascal declaration describes a record in the 
segment reference list: 



Seg„Rec« PACKED RECORD 

S€g„Name : PACKED ARRAY [0..7] OF CHAR; Ireferenced segment nome| 
Seg^Num: PACKED ARRAY [0..1] of . . 255 ]q is SEG NUM; 1 is unused J 

END; 



The SEG__REFS entry in the segment dictionary (described 
below) contains the number of words in the segment reference 
list. The CODE__LENG field in the segment dictionary can be 
used as a segment relative word pointer to the start of the 
segment reference list. The segment reference list consists of one 
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or more SEG_RECs, starting directly above the relocation lists 
(or procedure dictionary) and continuing towards higher memory 
addresses. A SEG_REC consists of SEG_NAME, which 
contains the name of the segment; SEG__NUM[0], which contains 
the number by which the segment is referenced within this 
current code segment; and SET_NUM[l], a filler byte. 

The segment reference list is terminated by a SEG_REC with a 
blank-filled SEG_NAME and SEG_NUM of 0. 

SEG_RECs with a SEG_NAME of *** are generated so that 
the Runtime Support Library can execute the initialization and 
termination code sections of a unit. 

When the initialization/termination section of a unit (which is 
procedure 1) is compiled, the following instruction is emitted 
between the initialization and termination parts: 

CXG <***>s Seg_Num>, 1 



where CXG is the p— code representation of a global procedure 
call. A local segment number is reserved for the "***" segment 
reference, and the Runtime Support Library creates a linear list 
that links together the units of a program that require 
initialization. At the end of this list is the outer body of the 
main program. The Runtime Support Library invokes the 
program by calling the first initialization code on this list, which 
calls the next, and so forth up to the body of the main program. 
When the main program terminates, the calling chain is 
"popped," and termination sections are executed in the reverse 
order. 
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CODE SEGMENT ENVIRONMENT 

At program startup time^ the Runtime Support Library creates a 
runtime "environment" that describes each code segment and its 
references to other code segments. A segment's runtime 
environment is defined by three data structures: the environment 
record (EREC), the environment vector (EVEC), and the segment 
information block (SIB). 

The Segment Information Block (SIB) 

A segment information block (SIB) is a record that contains 
information about a code segment of a running program. The 
SIB contains information about the current state of a segment 
and about the segment's location in memory and on disk. SIBs 
are created at program startup time for each code segment that 
the program references and each segment in the Runtime Support 
Library. SIBs are permanently allocated on the heap for the 
duration of program execution. 

The following Pascal record definition describes a SIB: 

SIB s= record 

se9_base: mom^handle; 
s«g~re« f dencyT mt«g«r; 
seg^iocks: int»eg«rj 

«eg~nem«: packed array [O . . 7] of char; 
seg^f 1 ie: 1nt.«g«r| 
seg^'addr: in-tegerj 
s«g~lengi In-beger; 
seg^da-ta^^s I 2« s int.«ger; 
end; "* "" 



seg__base This field is a handle (absolute pointer to an 

absolute pointer) that points to the base of the 
segment in memory. If seg__base is or 
derefhnd fseg base) returns 0, then the segment 
is not currently in memory. 

seg_ residency This field contains the memory residency status 
of the segment. When equal to —1 the segment 
is position locked. A zero value indicates that 
the segment is swappable. A value greater than 
zero is a count of the number of outstanding 
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memlock operations that have been applied to 
the segment. 

seg flocks This field contains the count of the number of 

conceptual HLock operations that have been 
done on the segment. (HLock causes a Macintosh 
heap block to become position— locked in 
memory.) A value of —1 indicates that the 
segment is position— locked and HLock 
operations are inappropriate for the segment. 

seg_name This field contains the first eight characters of 

the segment's name, space filled. 

seg_file This field contains the Macintosh file reference 

number of the open file that the segment is 
stored in. 

seg__addr This field contains the block number of the 

segment within the file whose reference number 
is seg_file. 

seg__leng This field contains the number of words that the 

segment occupies, including the relocation list 
but excluding the segment reference list. 

seg___ data __ size This field contains the number of words in the 
segment's global data. This field only applies to 
unit and program segments. 

The Environment Record (EREC) 

A code segment enviroment is a mapping from local segment 
numbers to the ERECs of the segments they represent. Within 
the p— code instruction set, segments are referred to by local 
segment number (an integer in the range 1..255). 

The segment environment is represented by two data structures: 
the environment record (EREC) and the environment vector 
(EVEC), The EVEC describes the mapping from local segment 
numbers to the ERECs of those segments. It is implemented as a 
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word array of pointers to ERECsj indexed by the local segment 
number. Entry zero of the EVEC is a count of the number of 
segments in the environment. 

The following Pascal record describes ERECs and EYECs: 



ev«>cp = «v«c; 
orecp = '*ere<:; 

«v«c ss record 

v«c__ I «ng-bh : int-egor; 
mapT array [1..1] of erocp; 
end ; 

erec = record 

env__dat/a; memp"br; 
env vect/S evecp; 
env]^sib: Sibpi 
env~nex-bs erecp; 
end ; "* 



env ___ data This field points to the segment's global data. 

The global data is allocated on the heap at 
program startup time. 

env^vect This field points to the environment's EVEC, 

which provides the mapping from local segment 
numbers to ERECs. 

env __ sib This field points to the segment's SIB. 

env __ next This field is used by the Runtime Support 

Library to keep track of ERECs. 



TASK ENVIRONMENT 

The p— Machine supports the implementation of the concurrent 
tasks of UCSD Pascal. Each task has its own set of the 
p— Machine registers and its own private stack space in which to 
save local data. The main task, which is the thread of execution 
for the user program, uses the Macintosh system stack for its 
stack. Other tasks use stacks of fixed size allocated within the 
heap. All tasks share a common heap for dynamic variable 
allocation. 
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The main data structure for the implementation of concurrency is 
the Task Information Block, or TIB, which saves a task's private 
set of p— Machine registers when it is dormant. A system of task 
queues is used to handle synchronization of waiting tasks and 
tasks that are ready to run. 

The Semaphore 

The Pascal semaphore data type is implemented as a two word 
construct described by the following Pascal record structure: 

sem = record 

soin_coun'b: irrbegcr; 

end; *" "" 



The sem _ count field contains the current value of the semaphore 
count. The sem __ wait _q field points to the queue of tasks that 
are currently waiting on the semaphore. 

The Task Information Block (TIB) 

The Task Information Block (TIB) data structure contains all the 
information necessary to awaken a task that has been dormant. 
TIBs are linked into queues of waiting and ready— to— run tasks. 

The following Pascal record describes a TIB: 

"b 1 b = packed record 

pegs: packed record 

waitr_^q: t-ib__p; 

prior: by te ; 

f I aas : bybe; 

ap^Tow I mem__p-brj 
^ sp~upr: mem^p-br; 

spT mem__^pt>rj 

mp : mscw p ; 

■bask__ i 1 nR : "fc1b__pj 

1 pc : I nt-eger ; 

env : e_rec___p; 

procnum: by-be; 

m^depend: Dyt>e; 

hangup: sem_^p: 

"b I b I oresu I -bT intieger; 
end ; 
mam__'baski boolean; 
ay&t>9m "bask i boolean; 
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reserved: 0,, 16383 

■bask^sJop: int-eger 
end ; "" 



wait__q This field points to the next task on a queue. 

prior This field contains the task priority, a number 

between and 255. Higher numbers represent 
higher priority. 

flags This field is reserved for future use. 

sp^low This field points to the lower address bound for 

the stack pointer of the task. In the main task, 
sp__low is compared with the SP register to 
determine whether a stack fault should be 
generated. 

sp__upr This field points to the upper address bound for 

the stack pointer of the task. 

sp This field is used to save the tasks stack pointer 

register (SP) when the task is dormant. 

mp This field is used to store the task's mark stack 

pointer register (MP) when the task is dormant. 

task _ link This field is used by the Runtime Support 

Library to link together all TIBs. 



ipc 



This field is used to store the task's instruction 
pointer register (IPC) when the task is dormant. 
The value is a byte offset within the current 
segment. 

This field is used to store the task's enviromnent 
record register (EREC) when the task is 
dormant. 



procnum This field is used to store the task's procedure 

number register when the task is dormant. 

m_ depend This field is reserved for future use. 



10-22 1200301:10B 



TASK ENVIRONMENT 



hangup This field points to the semaphore that the task 

is waiting on, or has the value nil if the task is 
not waiting on a semaphore. 

tibioresult This field is used to store the task's ioresult 

register when the task is dormant. 

main __ task This field is true if this is the main task and false 

otherwise. 

system _ task This field is true if this task is part of the 
Runtime Support Library and false if this task 
was started by a user program. 

start __mscw This field points to the first MSCW record in the 
task's stack. 

task _ slop This field is used to store the stack slop value for 

this task when the task is dormant. 



Task Queues 

Two p— Machine registers figure in the maintenance of the task 
enviromnent. 

CURTASK This register points to the TIB of the currently 

executing task, which is also linked into the 
ready queue. 

READYQ This register points to the queue of tasks that are 

ready to run. 

Tasks that are waiting to run are linked onto a queue in priority 
order (tasks with high priority toward the front of the queue). A 
task queue is a list of TIBs linked through their WAIT_Q fields. 
The queue is terminated by a pointer to nil. If the task is ready 
to run, it is linked on the queue pointed to by the READYQ 
register. If the task is waiting on a semaphore it is linked onto 
that semaphore's wait queue (the SEM__WAIT__Q field). 
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Task Switching 

Tasks are synchronized through the use of the Pascal intrinsics 
signal and wait . These, in turn, are implemented by the p— Code 
instructions SIGNAL and WAIT. See P-CODE 

DESCRIPTIONS for their operational details. 

^^^^ signal and wait can cause a "task switch" to occur. Task 
switch is the term used to describe the shutting down of one task 
and the revival of another task. The signal intrinsic causes a task 
switch when it causes a task of higher priority than the current 
task to be put into the ready queue. The wait intrinsic causes a 
task switch to occur when it hangs the current task on a 
semaphore. 

During the operation of a task switch, the p— Machine saves the 
current state of the p— Machine registers in the TIB of the task 
that it is shutting down, and restores the registers from the TIB 
of the task that it is awakening. 



FAULTS AND EXECUTION ERRORS 

This section describes faults and execution errors, which are 
exception conditions that may occur during a program's 
execution. 

Faults 

A fault is a special condition recognized by the PME during 
execution of a p—code that requires runtime support assistance to 
fix. After handling the problem, control returns to p—code 
execution at the point at which the fault was detected. The 
p—code where the fault was detected is reexecuted. 

Two types of faults may be issued by the PME: segment faults 
and stack faults. A segment fault is issued when a segment that 
must be accessed is not in memory. A stack fault is issued if not 
enough room is available on the stack for a p—code to perform its 
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operation. Stack height checking is done only on p—codes that 
will place multiple words on the stack, except in the case of real 
number operations, which do no stack checking. 

When the fault is detected, the p— Machine is to be returned to 
the state it was in prior to execution of the p— code. This is so 
that the p— code may be reexecuted on return from the fault. 

The following p— codes may issue a segment fault: 

CAP, CSP, CXL, SCXGn, CXG, CXI, CFP, RPU, SIGNAL (if 
a task switch occurs), WAIT (if a task switch occurs) 

The following p— codes may issue a stack fault: 

LDC, LDM, ADJ, SRS, CLP, CGP, SCIPn, CIP, CXL, 
SCXGn, CXG, CXI, CFP 

Execution Errors 



An execution error is a special error condition that the PME may 
recognize during execution of a p— code. When an execution error 
is detected, the system reports the error to the user. After an 
execution error has been detected, the user may choose either to 
continue execution or reinitialize the system. 

Each p— code that can cause an execution error will leave the 
p— Machine in a consistent state on detection of the error. The 
IPC will point to the next p— code, putting "dummy" results on 
the stack; that way the p—code won't be reexecuted on return. 

Below is a list of the execution errors, along with the execution 
error number, the p—codes that may issue the error and a 
description of what the error means. 
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Fatal Runtime Support Error Execution Errror 



p — Codes <none> 

This error should not occur. It indicates a corrupt Runtime 
Support Library. 

Value Range Error Execution Errror 1 



p~-Codes CHK, CSTR, REDU, RED2, SRS 

A value range error is issued if an array index or scalar is out of 
bounds. This is detected only with one of the special check 
instructions. Generation of these range checks is suppressed by 
the $R--- compiler directive. 

Exit from Uncalled Procedure Execution Errror 3 



p- Codes <EXIT> 

This error occurs w^hen an attempt is made to exit a procedure 
that is not currently active. 

Stack Overflow Execution Errror 4 



p-Codes LDC, LDM, ADJ, SRS, CLP, CGP, SCIPn, CIP, 
CXL, SCXGn, CXG, CXI, CFP 

A stack overflov^ error occurs when there is no room left in 
memory to expand the stack by the desired amount. 
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Integer Overflow Execution Errror 5 



p~Codes ADI2, SBI2, INC2, DEC2, MPI2, ADIU, SBIU, 
INCU, DECU, MPIU, <iong integer routines >, 
ABS2, NEG2 

An integer overflow error is issued when an integer2 operation 
result value is too large to represent in an integer2 variable. It 
can also occur when converting from real, long integer or integer2 
to integer, where the resulting integer is too large to fit into 16 
bits. 

Divide by Zero Execution Errror 6 



p~Codes DVI, MODI, DVR, DVI2, MD12, DVIU, MDIU, 
<long integer routines > 

This error occurs whenever division or the remainder function is 
attempted with a denominator. 

Invalid Memory Reference Execution Errror 7 



p — Codes <none> 

This error occurs when a memory reference is made through a 
pointer variable that currently contains nil. This condition is not 
always detected. 



Program Interrupted by User Execution Errror 8 



p— Codes <none> 

This error occurs if the user presses the break button and the 
debugger is not enabled. 
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Runtime Support I/O Error Execution Errror 9 

p — Codes <noiie> 

This error occurs if an I/O error occurs during program startup. 

I/O Error Execution Errror 10 

p-Codes <IOCHECK> 

This error occurs when the lOCHECK standard procedure detects 
the lORESULT is nonzero. Calls to lOCHECK that follow I/O 
operations can be suppressed with the $1— compiler directive. 

Unimplemented Instruction Execution Errror 11 

p — Codes <any unimplemented p— code> 

This error occurs when an attempt is made to execute an illegal 
or reserved p~code. This error may not always be detected. 

Floating Point Error Execution Errror 12 



p-Codes LDCRL, LDRL, STRL, FLT, TNC, RND, ABR, 
NCR, ADR, SBR, MPR, DVR, EQREAL, 
LEREAL, CEREAL, RFLT, FLT2, RFLT2, 
FLTU, RFLTU, TRUNC, ROUND, TRNC2, 
R0ND2, <POWEROFTEN> 

This error occurs when the result of a floating point calculation is 
not a legal floating point number. This may happen on floating 
point overflow. 
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String Overflow Execution Errror 13 



p — Codes CSP, ASTR, <long integer routines> 

This error occurs when a string assignment is made to a string 
that is too small to hold the source string. 

Programmed Halt Execution Errror 14 



p-Codes <HALT> 

This error occurs upon execution of the halt intrinsic in a user 
program. 

Illegal Heap Operation Execution Errror 15 



p~Codes <VAENEW> 

This error occurs when a varnew of or fewer words is 
attempted. It can also occur when calls to mark and release are 
not properly paired. 

Breakpoint Execution Errror 16 

p- Codes BPT 

This error occurs when a breakpoint p—code is executed. This 
error will result in entering the debugger if the debugger is 
currently in an active state. 
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Incompatible Real Number Size Execution Errror 17 



p — Codes <none> 

This error occurs if you attempt to run a program compiled with 
the $R2 compiler option. 

Set Too Large Execution Errror 18 



p- Codes SRS 

This error occurs when an attempt is made to create a set that is 
larger than the largest allowed set size (4080 members). 

Segment Too Large Execution Errror 19 



p-Codes CAP, CXL, SCXGn, CXG, CXI, CFP, RPU, 
SIGNAL, WAIT 

This error occurs if an attempt is made to load a segment that is 
more than 32K bytes in size. 

Heap Expansion Error Execution Errror 20 



p — Codes <heap operations > 

This error occurs if there is no room for the heap to expand. 
This is most likely to occur due to the presence of a 
nonrelocatable Macintosh heap block immediately above the 
Pascal heap in memory. 
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Insufficient Memory to Load Segment Execution Errror 21 



p--Codes CAP, CXL, SCXGn, CSC, CXI, CFP, RPU, 
SIGNAL, WAIT 

This error occurs if there is not enough room in memory to load a 
required code segment. 



P~MACHINE REGISTERS 

Like other processors, the p— Machine has registers which are a 
fundamental part of its architecture. Since the p— Machine is 
emulated by a program on the host 68000 processor, only some of 
these registers correspond to actual 68000 processor registers. 

Unlike most processors, the p—Machine doesn't allow its registers 
to be used in a general fashion. All registers have specific uses. 
The p—Machine stack takes the place of general purpose 
registers all temporary data is stored there. 

Here is a list of the p—Machine registers, along with a description 
of how they are used. 

CURPROC The CURPROC register contains the procedure 

number of the currently executing procedure. It 
changes whenever a procedure call is made. 
There is a maximum of 255 procedures per 
segment, so CURPROC will have a value in the 
range 1 through 255. 

CURTASK The CURTASK register is a pointer to the TIB 

of the currently executing task. It changes 
whenever a task switch occurs. 

EREC The EREC register is a pointer to the EYEC of 

the current environment. It changes whenever a 
call or return is made to a procedure in a 
different segment. The EREC contains pointers 
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EVEC 



lORESULT 



IPC 



MP 



to the global data, EVEC, and SIB. The pointer 
to the global data (called BASE) is kept in the 
68000 Al register. A pointer to the base of the 
current segment is kept in the 68000 A2 register. 

The EVEC register is a pointer to the EVEC 
(environment vector) of the current environment. 
It changes whenever a call or return is made to a 
procedure in a different segment. The EVEC is 
a redundant register, because it is a field of the 
EREC. The EVEC register is used to find the 
EREC of a different segment in order to access 
its data or to call a procedure in that segment. 

lORESULT contains the error code resulting 
from the last I/O operation. This is the only- 
register that may be accessed directly from a 
program (via the ioresult intrinsic). 

The IPC register (interpreter program counter) is 
a pointer to the next p~code that will be 
executed. This register is located in the 68000 
A4 register, IPC changes during each p— code 
execution. Whenever the IPC register is saved 
temporarily (for instance, in an MSCW) it is 
stored as a byte offset from the base of the 
current segment. 

The MP register points to the current activation 
record (MSCW). This register is located in the 
68000 AO register. It changes whenever a 
procedure call or return is made. All variables 
(except those that have been dynamically 
allocated on the heap) are accessed from an 
MSCW. Local variables are accessed from MP, 
global variables from BASE (see EREC, above), 
and intermediate variables from an intermediate 
MSCW. 



READYQ The READYQ register points to the TIB at the 

head of the queue of tasks ready to be run. It 
may change on a SIGNAL or WAIT p— code. 
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SP The SP register points to the word that is on the 

top of the p— Machine stack. The SP register 
corresponds to the 68000 stack pointer register in 
A7. SP changes on nearly every p— code, 
whenever an item is pushed on or popped off the 
stack. 



P-CODE DESCRIPTIONS 

Introduction 

The p— codes generated by the compiler are described in this 
section. Instructions for the p— machine consist of an opcode, 
which is one or two bytes long, followed by zero to three 
parameters. 

The following example illustrates the format that is used in this 
chapter to describe the p— codes. (The format of the description 
is the same for all p—codes.) 



LDCB UB Load Constant Byte 

[:word] 80 

The constant UB with high byte is pushed onto the stack. 
LDCB is used to load a constant in the range through 255, 



The top line of each p— code description contains the p— code 
mnemonic, any in—line parameters, and the title of the p— code. 
(All in— line parameter follows the p— code byte in the p— code 
stream.) There will be zero to three in— line parameters for each 
p— code. The symbol for each in— line parameter defines its type. 
Here the format is UB, meaning unsigned byte. UB and the other 
parameter formats are discussed below. 
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The second line of each p~code description contains the stack 
values on the left in brackets and the p— code hexadecinaal 
instruction value on the right. The stack values consist of two 
lists of operand types separated by a colon. The list to the left of 
the colon contains the type of each operand that will be on the 
stack before the instruction is executed. Following the colon, the 
type of each operand that the instruction places on the stack as a 
result is listed. When multiple operands are listed, the operand 
on the right of each list is at the top of the stack. For this 
example, the LDCB instruction uses no operands from the stack, 
but leaves a word result on the stack. The operand types are 
discussed below. 

NOTE: Most p~Machine instructions don't have specific in— line 
parameters but instead deal with operands that are on the stack. 

Finally, there is a brief description of the p— code function. The 
terms TOS, TOS—l, etc. are used in this description to refer to 
operands on the stack. TOS is the operand at the top of the 
stack. T0S~1 is the stack operand just below the operand at 
TOS. 

NOTE: The TOS, TOS— 1, etc. terminology only represents the 
position of an operand relative to other operands; it does not 
necessarily indicate the displacement on the stack. For example, 
an operand at TOS— 1 would be four words below a floating point 
operand at TOS, two words below an integer2 operand at TOS, 
or one word below an integer operand at TOS. 

Instruction Parameters 

The parameters to a p— code instruction contain information 
about the size and number of the instruction's operands. (In 
some cases, the parameter may be an operand itself, as in the 
case of LDCB, shown above.) 
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The parameter formats are: 



B Big. This is a parameter with variable length. If bit 7 

(MSB) of the first byte is 0, the remaining 7 bits 
represent a positive integer in the range through 127. 
If bit 7 of the first byte is 1, then bit 7 is cleared; the 
first byte is the high— order byte of a 16— bit word, and 
the following byte is the low— order byte of that word. 
The big format may represent positive integers in the 
range through 32767. 

DB Don't Care Byte. Represents a positive integer in the 

range through 127. Bit 7 is always 0. When 
converted to a 16— bit value, the most significant byte 
is zeroed. 

DW Doubleword. This is a 4— byte parameter. It is a 

32— bit two's complement value that represents an 
integ;er2 in the range -2147483648. .2147483647. The 
doubleword is always represented most significant word 
first, and each of these words is least significant byte 
first. 

PD Packed Descriptor. This is a one byte packed field 

descriptor. The size of the packed field minus 1 (in 
bits) is stored in the high order nibble of the byte. The 
bit number of the rightmost bit of the packed field is 
stored in the low order nibble. 

SB Signed byte. Represents a two's complement 8— bit 

integer in the range —128 through 127. When 
converted to a 16— bit two's complement value, the 
most significant byte is a sign extension (all bits equal 
bit 7 of the low byte (SB)). 

UB Unsigned byte. Represents a positive integer in the 

range through 255. When converted to a 16— bit 
value, the most significant byte is zeroed. When more 
than one UB parameter is needed in an instruction, 
they will be referred to by the description as UBl, UB2, 
etc. 
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W Word, This is a 2--byte parameter. It is a 16— bit 

two's complement value that represents an integer in 
the range —32768 through 32767. The word is always 
represented as least significant byte first in the code 
stream. 

Dynamic Operands 

This section describes the stack— oriented dynamic operands of 
p— Machine instructions. 

activation Activation record for a procedure. See the 

STACK ENVIRONMENT section for more 
details. 



iddr 



Addr represents a 16~bit p— Machine pointer 
within the Pascal Data Area. 



abs— ptr An 32— bit absolute memory address. It is stored 

in memory as most significant word first; both 
word are stored as most significant byte first. 



block 



bool 



Block represents a group of or more words. 
(Used in instructions with variable length 
operands.) 

Bool represents a 16— bit quantity treated as a 
logical value. If bit is 0, the value is FALSE. 
If bit is 1, the value is TRUE. 



byte— ptr A 16— bit byte offset from the base of the Pascal 

data area. 



dword 
func 



A 32— bit p— Machine doubleword. 

Function result. The actual type depends on the 
function type. The func operand is null for 
procedures. 



int 



Int represents a 16— bit two's complement 
integer. 
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int2 Same as a doubleword, but interpreted as a 

signed two's complement integer value. 

nil Nil represents a constant that references an 

invalid address. 

offset Offset represents a byte offset into a code 

segment. 

pack— ptr Pack— ptr represents three words that designate 

a bit field within a 16— bit word. TOS is the 
number of the rightmost bit of the field, TOS— 1 
is the number of bits in the field, and TOS— 2 is 
the address of the word. 

param Parameters for a procedure. The number of 

parameters and their types depend on the code 
that put them onto the stack. 

proc— ptr Pointer to a procedure. 

real Real represents a 64— bit floating point quantity. 

set A set represents through 255 words of bit flags, 

preceded by a word that contains the number of 
words in the set, 

uint A 16— bit unsigned integer value in the range 

0..65535. 

word Word represents a 16— bit quantity that may be 

treated in any way — as an integer, boolean, 
address, and so forth. 

word— ptr A 16— bit byte offset from the base of the Pascal 

data area. It must point to a word memory 
boundary (even address). 
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Constant Loads 

Constant p— codes are used to place constant values from the 
intruction streanoi onto the stack. 



LCO B Load Constant OfTset 

[:offset] 82 

B is a word offset into the constant pool of the current segment. 
The address of the indicated constant is converted into a segment 
relative byte offset. The computed offset is pushed onto the 
stack. 



LDCB UB Load Constant Byte 

[:word] 80 

The constant UB with high byte is pushed onto the stack. 
LDCB is used to load a constant in the range through 255. 



LDCD DW Load Constant Doubleword 

[rdword] FF 00 

The doubleword constant DW is pushed onto the stack. 



LDCI W Load Constant Integer 

[:word] 81 

The constant word W is pushed onto the stack. 



LDCN Load Constant NIL 

[mil] 98 

A NIL value is pushed onto the stack. The value zero is used to 
represent NIL. 
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SLDCn Short Load Constant 

[:word] 00.. IF 

The constant word whose value is encoded in the opcode is 
pushed onto the stack. The value n is the value of the opcode 
itself. SLDCn is used to load a constant between and 31. 



SLDCDO Short Load Doubleword Constant Zero 

[:dword] 41 

A doubleword containing the value zero is pushed onto the stack. 
Local Loads and Stores 



The local load and store p— codes are used to transfer data 
between the stack and the local activation record. 



LDL B Load Local 

[rword] 87 

The word with word offset B in the local activation record is 
pushed onto the stack. 

LDLD B Load Local Double^vord 

[:dword] 58 

The doubleword at offset B in the local activation record is 
pushed onto the stack. 



LLA B Load Local Address 

[:addr] 84 

The address of the variable with offset B in the local activation 
record is pushed onto the stack. 
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SLDLn Short Load Local 

[:word] 20..2F 

The word with word offset n in the local activation record is 
pushed onto the stack. SLDLn is used to load one of the first 16 
local words. The value of n is 1..32. 



SLDLDn Short Load Local Doubleword 

[idword] 42. .47 

The doublewprd at offset n in the local activation record is 
pushed onto the stack. SLDLDn is used to load any of the 
doubleword data containers whose first word is one of the first 6 
local words. The value of n is 1..6. 



SLLAn , Short Load Local Address 

[:addr] 60..67 

The address of the variable with offset n in the local activation 
record is pushed onto the stack. SLLAji is used to load the 
address of local variables with offsets between 1 and 8, 



SSXLn Short Store Local 

[word:] 68. .6F 

TOS is stored in the word with offset n in the local activation 
record. SSTLn is used to store in one of the first eight local 
words. The value of n is l.,8 



SXL B Store Local 

[word:] A4 

TOS is stored in the word with offset B in the local activation 
record. 
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STLD B Store Local Doubleword 

[dword:] 5D 

The doubleword operand at TOS is stored into the doubleword 
located at word offset B in the local activation record. 

Global Loads and Stores 

The global load and store p— codes are used to transfer data 
between the stack and the global data storage of the current code 
segment. 



LAO B Load Global Address 

[:addr] 86 

The address of the variable with offset B in the global activation 
record is pushed onto the stack. 

LDO B Load Global 

[rword] 85 

The word with offset B in the global activation record is pushed 
onto the stack. 



LDOD B Load Global Doubleword 

[:dword] 5A 

The doubleword at word offset B in the global activation record 
is pushed onto the stack. 



SLDOn Short Load Global 

[.-word] 30..3F 

The word with offset n in the global activation record is pushed 
onto the stack. SLDOn is used to load global words with offsets 
between 1 and 16. The value of n is L.16. 
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SLDODn Short Load Global Doubleword 

[:dword] 48. .4F 

The doubleword at word offset n in the global activation record 
is pushed onto the stack. SLDODn is used to load any of the 
doubleword data containers whose first word is one of the first 8 
global words. 



SRO B Store Global 

[word:] A5 

The word at TOS is stored in the word with offset B in the global 
activation record. 



SROD B Store Global Doubleword 

[dword:] 5F 

The doubleword at TOS is stored into the doubleword at word 
offset B in the global activation record. 

Intermediate Loads and Stores 

The intermediate load and store p— codes are used to transfer 
data between the stack and a specific activation record in the 
stack. 



LDA. DB,B Load Intermediate Address 

[:addr] 88 

DB indicates the number of static links to traverse to find the 
activation record to use. (DB==0 indicates the local activation 
record; DB=1 indicates the parent activation record; and so 
forth.) The address of the variable with offset B in the indicated 
activation record is pushed onto the stack. 
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LOD DB,B Load Intermediate 

[:word] 89 

DB indicates the number of static links to traverse to find the 
activation record to use. (DB=0 indicates the local activation 
record; DB=1 indicates the parent activation record; and so 
forth.) The word with offset B in the indicated activation record 
is pushed onto the stack. 



LODD DB,B Load Intermediate Doubleword 

[idword] 59 

DB indicates the number of static links to traverse to find the 
activation record to use. (DB=0 indicates the local activation 
record; DB=1 indicates the parent activation record; and so 
forth.) The doubleword with offset B in the indicated activation 
record is pushed onto the stack. 



SLODn B Short Load Intermediate 

[:word] AD..AE 

The word with offset B in the activation record of the parent 
(SLODl) or grandparent (SL0D2) of the local activation record is 
pushed onto the stack. 



SXR DBjB Store Intermediate 

[word:] A6 

DB indicates the number of static links to traverse to find the 
activation record to use, (DB=0 indicates the local activation 
record; DB=1 indicates the parent activation record; and so 
forth.) The word at TOS is stored into the word with offset B in 
the indicated activation record. 
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STRD DB,B Store Intermediate Doubleword 

[word:] 5E 

DB indicates the number of static links to traverse to find the 
activation record to use. (DB=0 indicates the local activation 
record; DB=1 indicates the parent activation record; and so 
forth.) The doubleword at TOS is stored into the doubleword 
with offset B in the indicated activation record. 

Extended Loads and Stores 

The extended load and store p— codes are used to transfer data 
betw^een the stack and the global data storage of a code segment 
that is not the current segment. 



LAE UB,B Load Extended Address 

[:addr] 9B 

The address of the variable with offset B in the global activation 
record of local segment UB is pushed onto the stack. 



LDE UB,B Load Extended Word 

[:word] 9A 

The word at offset B in the global data segment of local code 
segment UB is pushed onto the stack. 



LDED UB,B Load Extended Doublew^ord 

[:dword] 5B 

The doubleword at offset B in the global data segment of local 
code segment UB is pushed onto the stack. 
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STE UB,B Store Extended Word 

[word:] D9 

The word at TOS is stored into the word with offset B in the 
global activation record of local segment UB. 



STED UB,B Store Extended Doubleword 

[dword:] F6 

The doubleword at TOS is stored into the doubleword with word 
offset B in the global data segment for the local code segment 
UB. 

Indirect Loads and Stores 



The indirect load and store p— codes are used to transfer data 
between the stack and an address specified by an operand on the 
stack. 



IND B Index and Load Word 

[addr:word] E6 

The word offset specified by B is added to the word pointer at 
TOS. The word pointed to by the resulting word pointer is 
pushed onto the stack. 



INDD B Load Indirect Doubleword 

[addr:dword] 5C 

The word offset specified by B is added to the word pointer at 
TOS. The doubleword pointed to by the resulting word pointer 
is pushed onto the stack. 
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SINDn Short Index and Load Word 

[addrrword] 78. .7F 

The word offset n is added to the word pointer at TOS^ and the 
word pointed to by the resulting word pointer is pushed onto the 
stack. The value of n is 0..7, 



SINDDn Short Index and Load Doubleword 

[addr:dword] 50. .57 

The word offset n is added to the word pointer at TOS, and the 
doubleword pointed to by the resulting word pointer is pushed 
onto the stack. The value of n is 0..7. 



STO Store Word Indirect 

[addrjword:] C4 

The word at TOS is stored into the word pointed to by the word 
pointer at TOS— 1. 



SXOD Store Doubleword Indirect 

[addr,dword:] F5 

The doubleword at TOS is stored into the doubleword pointed to 
by the word pointer at TOS— 1. 

Multiple Word Loads and Stores 

The multiple word load and store p— codes are used to transfer 
multiple word data between the stack and memory. 



LDC UB1,B,UB2 Load Constant 

[:block] 83 

If less than UB2-f STACK __ SLOP words are available on the 
stack, a stack fault is issued. 
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B is a word offset into the constant pool of the currently 
executing segment. UB2 words starting at that offset are pushed 
onto the stack, preserving the order of the words. If UBl, the 
mode, is 2, and the current segment is of opposite byte sex from 
the host processor, the bytes of each word are swapped as they 
are loaded. 



LDCRL B Load Constant Real 

[:real] F2 

The real constant at offset B in the constant pool of the currently 
executing segment is loaded onto the stack. 



LDM UB Load Multiple 

[addr,block] DO 

If less than UB-f STACK _ SLOP words are available on the 
stack, a stack fault is issued. 

TOS is a pointer to a block of UB words. The block is pushed 
onto the stack, preserving the order of the words. 



LDRL Load Real 

[addr:real] F3 

TOS is the address of a real variable. TOS is replaced with the 
indicated real. 



STM UB Store Multiple 

[addr,block:] 8E 

TOS is a block of UB words. The block is stored at address 
TOS-— 1, preserving the order of the words. 
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STRL Store Real 

[addr,real:] ^ F4 

TOS is a real value. TOS— 1 is an address. TOS is stored at the 
address TOS— 1. 

Parameter Copying 

These instructions are generated by the compiler to copy multiple 
word parameters which are passed to a procedure by value. 



CAP B Clopy Array Parameter 

[addr,addr:] AB 

TOS is the address of a parameter descriptor for a packed array 
of characters. The parameter description is a two— word record. 
The first (low) word is either NIL or a pointer to an EREC. If 
the first word is NIL, the second word is the address of the 
parameter. If the first word points to an EREC, the second word 
is an offset relative to the segment indicated by the EREC. This 
offset was created with an LCO instruction. 

A segment fault is issued if the parameter descriptor indicates a 
nonresident segment. Otherwise, the array (which is B words 
long), is copied to the destination at address TOS— 1. 



CSP UB Copy String Parameter 

[addr,addr:] AC 

TOS is the address of a parameter descriptor for a packed array 
of characters. The parameter description is a two— word record. 
The first (low) word is either NIL, or a pointer to an EREC. If 
the first word is NIL, the second word is the address of the 
parameter. If the first word points to an EREC, the second word 
is an offset relative to the segment indicated by the EREC. This 
offset was created with an LCO instruction. 
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A segment fault is issued if the parameter descriptor indicates a 
nonresident segment. Otherwise, the dynamic length of the 
designated string is compared to UB (the declared size of the 
destination formal parameter). If the string is larger than the 
destination size, a string overflow execution error is issued. 
Otherwise, the string is copied to the address TOS— 1. 

Byte Load and Store 

These instructions transfer a byte of data between the stack and 
a storage area designated by an address on the stack. 



LDB Load Byte 

[byte— ptrrword] A7 

TOS is a byte pointer. TOS is replaced by the indicated byte 
with the high byte 0. 



SXB Store Byte 

[byte— ptr, word:] C8 

The low byte of TOS is stored in the location pointed to by byte 
pointer TOS— 1. 

Packed Field Loads and Stores 



The packed field p— codes are used to transfer packed data 
between the stack and an address specified by an operand on the 
stack. 



LDP Load Packed 

[pack— ptr:word] 09 

The packed field pointer TOS is replaced with the field it 
designates. Before being pushed onto the stack, the field is 
right— justified and zero— filled. 
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SSTP PD Short Stored Packed 

[ad dr, word:] - 40 

The word operand at TOS contains a right justified value which 
is stored into a field within the word pointed to by the word 
pointer at TOS — l. The packed field descriptor PD specifies the 
size and location of the field within the word. 



STP Stored Packed 

[pack— ptr,word:] CA 

TOS contains right— justified data. TOS— 1 is a packed field 
pointer. TOS is niasked to the field width indicated in TOS— 1, 
then stored into the field described by TOS—l. 



UPACK PD Unpack Field from Top of Stack 

[wordrword] AT 

The field of the word operand at TOS described by the packed 
field descriptor parameter PD replaces the word operand at TOS. 
The value of the packed field is right justified in the result word. 

Structure Indexing and Assignment 

These instructions are used to index into and copy array and 
record structures. 



AMOVE Absolute Move Left 

[abs— ptr,abs— ptr,int2:] FF 35 

This instruction moves a number of bytes of memory starting at 
where the absolute address value at TOS— 2 points into the 
successive memory locations starting at where the absolute 
address value at TOS—l points. The number of bytes to move is 
contained in the integer2 operand at TOS. 
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INC B Increment 

[addr:addr] E7 

The word pointer TOS is indexed by B words, and the resulting 
pointer is pushed. 



INCBI Increment Pointer with Integer Byte OfTset 

[addr,word:addr] FE 

The integer operand at TOS (containing a byte offset) is added to 
the pointer operand at TOS— 1, and the resulting pointer value 
replaces the operands on the stack. 



INCB2 Increment Pointer with Integer2 Byte Offset 

[addr,dword:addr] FF OD 

The integer2 operand at TOS (containing a byte offset) is added 
to the pointer operand at TOS— 1, and the resulting pointer value 
replaces the operands on the stack. 



IXA B Index Array 

[addr,word:addr] D7 

The operand at TOS— 1 is a word pointer which locates the base 
of an array. The word operand at TOS is an index into the 
array, where the value selects the first element in the array. 
The value B specifies the size (in words) of the array elements. 
The operands are replaced on the stack by a word pointer which 
points to the selected array element. 



IXA2 B Index Array Integer2 

[addr,dword:addr] FF OB 

The operand at TOS— 1 is a word pointer which locates the base 
of an array. The doubleword operand at TOS is an index into 
the array, where the value selects the first element in the array. 
The value B specifies the size (in words) of the array elements. 
The operands are replaced on the stack by a word pointer which 
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points to the selected array element. 



IXP UBl,UB2 Index Packed Array 

[addr,word:pack— ptr] D8 

This operation performs an indexing operation for an array in 
which multiple elements are packed into a word, and pushes a 
packed field pointer onto the stack which points to the selected 
array element. The parameter UBl specifies the number of array 
elements that are packed into a word. The parameter UB2 
specifies the size of an array element in bits. The word pointer 
operand at TOS— 1 locates the base of the packed array. The 
integer2 operand at TOS is the index into the array, where the 
value zero selects the first array element. 



IXP 2 UB1,UB2 Index Packed Array Integer2 

[addr,dword:pack— ptr] FF OC 

This operation performs an indexing operation for an array in 
which multiple elements are packed into a word, and pushes a 
packed field pointer onto the stack which points to the selected 
array element. The parameter UBl specifies the number of array 
elements that are packed into a word. The parameter UB2 
specifies the size of an array element in bits. The word pointer 
operand at TOS— 1 locates the base of the packed array. The 
integer2 operand at TOS is the index into the array, where the 
value zero selects the first array element. 



MOV UB,B Move 

[addr,word:] C5 

TOS is either the address of a word block (if UB=0) or the offset 
of a constant word block in the current segment (if UB< >0). B 
words are moved from the source designated by TOS to the 
destination address TOS— 1. IF UB=2, and the current segment 
has opposite byte sex from the host processor, the bytes of each 
word are swapped as the words are moved. 
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Logical Operators 

These instructions perform logical operations on stack data. 

BNOT Boolean Not 

[wordibool] 9F 

The one's complement of the word at TOS is masked to one bit, 
and the result is pushed on the stack. BNOT produces a 1 
(TRUE) or a (FALSE) on the stack, regardless of how many 
bits were set in TOS. 



GEUSAV Greater Than or Equal Unsigned 

[word,word:bool] B5 

The boolean result of the unsigned comparison TOS— 1 >== TOS 
is pushed onto the stack. 



LAND Logical AND Word 

[word,word:word] Al 

The word operands at TOS and TOS— 1 are removed from the 
stack, ANDed together, and the resultant word is pushed onto the 
stack. 



LANDD Logical AND Donbleword 

[dword,dword:dword] FF 27 

The doubleword operands at TOS and TOS— 1 are removed from 
the stack, ANDed together, and the resultant doubleword is 
pushed onto the stack. 
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LEUSAV Less than or Equal Unsigned 

[word,word:bool]- B4 

The boolean result of the unsigned comparison TOS— 1 <== TOS 
is pushed onto the stack. 



LNOT Logical NOT Word 

[wordiword] E5 

The word operand at TOS is' removed from the stack, one's 
complemented, and pushed onto the stack. 



LNOTD Logical NOT Doubleword 

[dwordidword] FF 29 

The doubleword operand at TOS is removed from the stack, 
one's complemented, and pushed onto the stack. 



LOR Logical OR Word 

[word,word:word] AO 

The word operands at TOS and TOS— 1 are removed from the 
stack, ORed together, and the resultant word is pushed onto the 
stack. 



LORD Logical OR Doubleword 

[dword,dword:dword] FF 28 

The doubleword operands at TOS and TOS— 1 are removed from 
the stack, ORed together, and the resultant doubleword is pushed 
onto the stack. 
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LXORD Logical Exclusive OR Doubleword 

[dword,dword:dword] FF 2B 

The doubleword operands at TOS and TOS— 1 are removed from 
the stack, XORed together, and the resultant doubleword is 
pushed onto the stack. 



LXORW Logical Exclusive OR Word 

[word,word:word] FF 2A 

The word operands at TOS and TOS— 1 are removed from the 
stack, XORed together, and the resultant word is pushed onto the 
stack. 

Shift Operators 

These instructions perform shifting operations on stack data. 



ASRD Arithmetic Shift Right Doubleword 

[dword,int:dword] FF 26 

The doubleword operand at TOS— 1 is shifted to the right by the 
number of bits in the value of the word at TOS. The sign of the 
doubleword operand is propagated into the vacated bit positions. 
If the count is negative, zero, or greater than 32, the result of the 
operation is undefined. 



ASRW Arithmetic Shift Right Word 

[word,int:word] FF 23 

The word operand at TOS — 1 is shifted to the right by the 
number of bits in the value of the word at TOS. The sign of the 
word operand is propagated into the vacated bit positions. It the 
count is negative, zero, or greater than 16, the result of the 
operation is undefined. 
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LSLD Logical Shift Left Doubleword 

[dword,int:dword] FF 24 

The doubleword operand at TOS— 1 is shifted to the left by the 
number of bits in the value of the word at TOS. If the count is 
negative, zero, or greater than 32, the result of the operation is 
undefined. 



LSLW Logical Shift Left Word 

[word,int:word] FF 21 

The word operand at TOS— 1 is shifted to the left by the number 
of bits in the value of the word at TOS. If the count is negative, 
zero, or greater than 16, the result of the operation is undefined. 



LSRD Logical Shift Right Doubleword 

[dword,int:dv^ord] FF 25 

The doubleword operand at TOS— 1 is shifted to the right by the 
number of bits in the value of the word at TOS. If the count is 
negative, zero, or greater than 32, the result of the operation is 
undefined. 



LSRW Logical Shift Right Word 

[word,int:word] . FF 22 

The word operand at TOS— 1 is shifted to the right by the 
number of bits in the value of the word at TOS. If the count is 
negative, zero, or greater than 16, the result of the operation is 
undefined. 
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Integer Arithmetic 

These instructions peform arithmetic operations on data in the 
stack. 



ABI Absolute Value Integer 

[intdnt] EO 

TOS is replaced by the absolute value of TOS. If TOS is 
-32768, the result will be -32768. 



ABS2 Absolute Value Integer2 

[int2:int2] FF 06 

The integer2 value at TOS is replaced v^ith its absolute value. 
All Integer Overflow execution error occurs if the initial value is 
-2147483648. 



ADI Add Integers 

[int,int:int] A2 

TOS is replaced by TOS-1 + TOS. The result should be 
computed as if it were an unsigned operation on 32— bit operands, 
and only the lowest 16 bits were retained for the result. Thus, 
overflow or underflow will "wrap around" to the opposite sign. 



ADI2 Add Integer2 

[int2,int2:int2] F7 

The integer2 operands at TOS and TOS— 1 are replaced on the 
stack by the sum of the two operands. An Integer Overflow 
execution error is reported if the sign bits of the operands are 
equal and the sign bit of the result has the opposite sign. 
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CHK Check Subrange Bounds 

[int,int,int:int] CB 

TOS is an upper— bound, TOS— 1 is a lower— bound. If it isn't 
the case that TOS — 1 <= TOS — 2 <= TOS, a value range 
execution error is issued. TOS— 2 remains on the stack. 



CHK2 Integer2 Range Check 

[int2,int2,int2:int2] FF OF 

This operator performs a check on the range of the integer2 
operand at TOS-2. If it isn't true that TOS-1 <= TOS-2 
<= TOS, a Value Range Error execution error is reported. The 
integer2 operands at TOS and TOS— 1 are removed from the 
stack. The value at TOS— 2 remains as the new TOS. 



DECI Decrement Integer 

[int:int] EE 

TOS is decremented by 1. If TOS is -32768, the result will be 
32767. 



DEC 2 Decrement Integer2 

[int2:int2] FF 04 

The integer2 value at TOS is decremented and the result is 
pushed onto the stack. An Integer Overflow execution error is 
reported if the initial value is -2147483648. 



DVI Divide Integer 

[int,int:int] 8D 

If TOS is 0, a divide— by— zero execution error occurs. 

Otherwise, TOS is replaced by TOS-1 DIV TOS. The division 
operation is an integer division truncated toward 0. 
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DVI2 Divide Integer2 

[int2,int2:int2] FA 

The integer2 operands at TOS and TOS— 1 are replaced on the 
stack by the integer2 result obtained by dividing the operand at 
TOS— 1 by the operand at TOS. If the divisor equals zero, a 
Divide by Zero execution error is reported. The division 
operation is an integer division truncated toward zero. 



EQUI Equal Integer 

[int,int:bool] BO 

The Boolean result of the comparison TOS— 1 = TOS is pushed 
onto the stack. 



EQI2 Equal Integer2 Comparison 

[int2,int2:bool] FF 07 

The integer2 operands at TOS and TOS— 1 are replaced on the 

stack by the Boolean result determined by comparing the 
operands. 



GEI2 Greater Than or Equal Integer2 Comparison 

[int2,int2:bool] FF OA 

The integer2 operands at TOS and TOS— 1 are replaced on the 
stack by the Boolean result obtained by the comparison TOS— 1 
>=TOS. 



GEQI Greater Than or Equal Integer 

[int,int:bool] B3 

The Boolean result of the signed comparison TOS— 1 >= TOS is 
pushed onto the stack. 
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INCI Increment Integer 

[int;iiit] ED 

The word at TOS is incremented by 1. If TOS was initially 
32767, the result will be -32768. 



INC 2 Increment Integer2 

[int2:int2] FB 

The integer2 operand at TOS is incremented. If an overflow 
occurs, an Integer Overflow execution error is reported. 



LEI2 Less Than or Equal Integer2 Comparison 

[int2,int2:bool] FF 09 

The integer 2 operands at TOS and TOS— 1 are replaced on the 
stack by the Boolean result obtained by comparing TOS— 1 < = 
TOS. 



LEQI Less Than or Equal Integer 

[int,int:int] B2 

The Boolean result of the signed comparison TOS— 1 <= TOS is 
pushed onto the stack. 



MDI2 Modulo Integer2 

[int2,int2:int2] FF 03 

If the integer2 value at TOS is zero, a Divide by Zero execution 
error is reported. 

Otherwise, the integer2 operands at TOS and TOS— 1 are 
replaced on the stack by the value obtained by performing 
TOS— 1 modulo TOS. The operation is undefined if the value at 
TOS is negative, but no execution error occurs. The result is 
always an integer2 value in the range <= result < TOS. This 
result is calculated as if the value at TOS was added or 



10-60 1200301:10B 



P-CODE DESCRIPTIONS 



subtracted from the value at TOS— 1 until the result is in the 
proper range. 



MODI Modulo Integers 

[int,int:int] 8F 

If the integer value at TOS is zero, a Divide by Zero execution 
error is reported. 

Otherwise, the integer operands at TOS and TOS— 1 are replaced 
on the stack by the value obtained by performing TOS— 1 modulo 
TOS. The operation is undefined if the value at TOS is negative, 
but no execution error occurs. The result is always an integer 
value in the range <= result < TOS. This result is calculated 
as if the value at TOS was added or subtracted from the value at 
TOS— 1 until the result is in the proper range. 



MPI Multiply Integer 

[int,int:int] 80 

TOS is replaced by TOS-1 * TOS. The result should be 
computed as if it were an utisigned operation on 32— bit operands 
and only the lowest 16 bits were retained for the result. 



MPI2 Multiply Integer2 

[int2,int2:int2] F9 

The integer2 operands at TOS and TOS— 1 are replaced on the 
stack by the product of the two operands. An Integer Overflow 
execution error is reported if the value of the result is outside the 
range of values which can be represented in the integer2 format. 



NEG2 Negate Integer2 

[int2:int2] FF 05 

The integer2 value at TOS is replaced with its negated value 
found by taking the two's complement. An Integer Overflow 
execution error is reported if the initial value is —2147483648. 
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NEI2 Not Equal Integer2 Comparison 

[int2,mt2:bool] - FF 08 

The integer2 operands at TOS and TOS—l are replaced on the 
stack by the Boolean result obtained by comparing the operands. 



NEQI Not Equal Integer 

[int,int:bool] Bl 

The Boolean result of the comparison TOS— 1 <> TOS is 
pushed onto the stack. 



NGI Negate Integer 

[intdnt] El 

TOS is replaced by the negative (two's complement) of TOS. If 
TOS was initially -32768, the result should be -32768. 



SBI Subtract Integer 

[int,int:int] A3 

TOS is replaced by TOS— 1 — TOS. The result should be 
computed as if it were an unsigned operation on 32— bit operands, 
and only the lowest 16 bits were retained for the result. Thus, 
overflow or underflow will "wrap around" to the opposite sign. 



SBI2 Subtract Integer2 

[int2,int2:int2] F8 

The. integer2 operands at TOS and TOS— 1 are replaced on the 
stack by the difference obtained by subtracting TOS— 1 from 
TOS. An Integer Overflow execution error is reported if the sign 
bits of the operands are not equal and the sign bit of the result 
has the same sign as the TOS— 1 operand. 
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Unsigned Arithmetic 

The instuctions perform operations on unsigned integer data on 
the stack. 



ADIU Add Integer Unsigned 

[uint,uint:uint] FF 14 

The unsigned operands at TOS and TOS— 1 are replaced on the 
stack by the value of TOS— 1 -f TOS. An Integer Overflow 
execution error is reported if TOS— 1 + TOS is greater than 
65535. 



CHKU Unsigned Integer Rangecheck 

[uint,uint,uint:uint] FF IB 

The unsigned integer operands at TOS and TOS— 1 are removed 
from the stack and a range check on the value of the unsigned 
integer operand at TOS— 2 is performed. A Value Out of Range 
execution error is reported if the following is not true: TOS— 1 
<=:T0S-2 <= TOS. 



DECU Decrement Integer Unsigned 

[uint:uint] FF lA 

The unsigned integer operand at TOS is decremented and the 
result replaces the operand on the stack. An Integer Overflow 
execution error is reported if TOS — 1 is less than zero. 



DVIU Divide Integer Unsigned 

[uint,uint:uint] FF 17 

The unsigned operands at TOS and TOS— 1 are replaced on the 
stack by the value of TOS-1 div TOS. A Divide by Zero 
execution error is reported if TOS is zero. 



1200301:10B 10-63 



P-MACHINE ARCHITECTURE Chapter 10 



INCU Increment Integer Unsigned 

[uintmint] FF-19 

The unsigned integer operand at TOS is incremented and the 
result replaces the operand on the stack. An Integer Overflow 
execution error is reported if TOS -f 1 is greater than 65535. 



jMDIXJ Modulo Integer Unsigned 

[uint,uint:uint] FF 18 

The unsigned operands at TOS— 1 is divided by the unsigned 
integer at TOS and the remainder replaces both operands on the 
stack; A Divide by Zero execution error is reported if the original 
operand at TOS is zero. 



MPIU Multiply Integer Unsigned 

[uint,uint:uint] FF 16 

The unsigned operands at TOS and TOS— 1 are replaced on the 
stack by the value of TOS-1 * TOS. An Integer Overflow 
execution error is reported if TOS— 1 * TOS is greater than 
65535. 



SBIU Subtract Integer Unsigned 

[uint,uint:uint] FF 15 

The unsigned operands at TOS and TOS— 1 are replaced on the 
stack by the value of TOS-1 - TOS. An Integer Overflow 
execution error is reported if TOS— 1 — TOS is less than zero. 

Real Arithmetic 



These instruction perform operations on floating point data on 
the stackc 
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ABR Absolute Value of Real 

[real:real] E3 

TOS is replaced by the absolute value of S. 



ADR Add Reals 

[real,real:real] CO 

TOS is replaced by the value TOS-1 4- TOS. The result should 
be on underflow. A floating point execution error is issued on 
overflow. 



DVR Divide Reals 

[real,real:real] C3 

If TOS is 0, a divide— by— zero execution error is issued. 



Otherwise, TOS is replaced by the value TOS-1 / TOS. The 
result will be on underflow. A floating point execution error is 
issued on overflow. 



EQREAL Equal Real 

[real,real:bool] CD 

The Boolean result of the comparison TOS— 1 = TOS is pushed 
onto the stack. 



GEREAL Greater than or Equal Real 

[real,real:bool] CF 

The Boolean result of the comparison TOS— 1 >= TOS is 
pushed onto the stack. 
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LEREAL Less than or Equal Real 

[real,real:booi] CE 

The Boolean result of the comparison T0S==-1 <= TOS is 
pushed onto the stack. 



MPR Multiply Reals 

[real,real:real] C2 

TOS is replaced by the value TOS-1 * TOS. The result will be 
on underflow. A floating point execution error is issued on 
overflow. 



NGR Negate Real 

[reahreal] E4 

TOS is replaced by the inverse of TOS. 



SBR Subtract Reals 

[real, reahreal] CI 

TOS is replaced by the value TOS-1 ~ TOS. The result will be 
on underflow. A floating point execution error is issued on 
overflow. 

Set Operations 

These instructions perform operations on set data on the stack. 



AD J UB Adjust Set 

{set:block] C7 

If less than STACK __ SLOP words on the stack will be available 
after the completion of the adjust, a stack fault is issued. 
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The set operand at TOS is stripped of its length word and then 
expanded or compressed so that it is UB words in size. 
Expansion is done by adding words of zeros "between" TOS and 
TOS— 1. Compression is done by removing high words of the set. 
It is legal for adjust to remove "significant" words of the set 
during compression. 



DIF Set DifTerence 

[set,set:set] DD 

The difference between sets TOS— 1 and TOS is pushed onto the 
stack. The difference is computed as bit— wise (TOS— 1 AND 
NOT TOS). 



EQPWR Equal Set 

[set,set:bool] B6 

The Boolean result of the comparison TOS— 1 = TOS is pushed 
onto the stack. The sets need not be the same size — only the 
elements must match. 



GEPWR Greater than or Equal Set 

[set,set:bool] B8 

TRUE is pushed if TOS— 1 is a superset of TOS. Otherwise, 
FALSE is pushed. 



INN Set Membership 

[int,set:bool] DA 

The Boolean result of the check whether TOS is contained in the 
set TOS— 1 is pushed onto the stack. 
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INT Set Intersection 

[set,set:set] DC 

The intersection (bit— wise AND) of sets TOS and TOS— 1 is 
pushed onto the stack. 



LEP WR Less than or Equal Set 

[setjsetrbool] B7 

TRUE is pushed if TOS-1 is a subset of TOS. Otherwise, 
FALSE is pushed. 



SRS Build a Subrange Set 

[int,int:set] BC 

If less than STACK _ SLOP words will be available on the stack 
after this operation, a stack fault is issued. 

The integers TOS and TOS— 1 must be in the range through 
4079o (Refer to The UCSD Pascal Handbook for an explanation of 
set limitations in UCSD Pascal.) If not, a value range execution 
error is issued. 

If TOS— 1 > TOS, the empty set is pushed. Otherwise, a set is 
created containing the elements between TOS— 1 and TOS, 
inclusive, as members. This set is pushed on the stack. 



UNI Set Union 

[set,set:set] DB 

The .union (bit— wise OR) of the sets TOS and TOS— 1 is pushed 
onto the stack. 
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Byte Array Comparisons 

These instructions perform comparison operations on data 
structures (arrays and records). 



EQBYT UB1,UB2,B Equal Byte Array 

[word,word:bool] B9 

UBl and UB2 are mode flags. If UBl (or UB2) is 0, then TOS (or 
TOS— 1) is a pointer to a byte array. If UBl (or UB2) is 1, then 
TOS (or TOS— 1) is an offset within the current segment of a 
constant byte array. B is the size (in bytes) of the array. 

The Boolean result of the comparison TOS— 1 = TOS is pushed 
onto the stack. The bytes are compared one by one in the 
natural byte order of the processor until a mismatch is found or 
the end of the arrays is reached. If there is a mismatch in any 
character position, FALSE is pushed onto the stack. Otherwise, 
TRUE is pushed. 



GEBYT UB1,UB2,B Greater than or Equal Byte Array 

[word,word:bool] BB 

UBl and UB2 are mode flags that refer to TOS and TOS-1, 
respectively. If UBl (or UB2) is 0, then TOS (or TOS-l) is a 
pointer to a byte array. If UBl (or UB2) is 1, then TOS (or 
TOS— 1) is an offset within the current segment of a constant 
byte array. B is the size (in bytes) of the array. 

The Boolean result of the comparison TOS— 1 >= TOS is 
pushed on the stack. The bytes are compared one by one in the 
natural byte order of the processor until a mismatch is found or 
the end of the arrays is reached. If there is a mismatch and the 
character in TOS— -1 < the character in TOS, FALSE is pushed 
onto the stack. Otherwise, TRUE is pushed. 
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LEBYT UB1,UB2,B Less than or Equal Byte Array 

[word, word :bool] BA 

UBl and UB2 are mode flags that refer to TOS and TOS-1, 
respectively. If UBl (or UB2) is 0, then TOS (or TOS-l) is a 
pointer to a byte array. If UBl (or UB2) is 1, then TOS (or 
TOS— l) is an offset within the current segment of a constant 
byte array. B is the size (in bytes) of the array. 

The Boolean result of the comparison TOS— 1 <= TOS is 
pushed onto the stack. The bytes are compared one by one in the 
natural byte order of the processor until a mismatch is found or 
the end of the arrays is reached. If there is a mismatch and the 
character in T0S~1 > the character in TOS, FALSE is pushed 
onto the stack. Otherwise, TRUE is pushed. 

Jumps 

These instructions perform conditional and unconditional jumps 
within the p—code instruction stream. 



EF J SB Equal False Jump 

[int,int:] D2 

If TOS < > TOS— 1, a jump is made, relative to the next 
instruction, by the byte offset SB« 



F JP SB False Jump 

[bool:] D4 

If TOS is FALSE, a jump is made, relative to the next 
instruction, by the byte offset SB. 
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F JPL W False Long Jump 

[booh] D5 

If TOS is FALSE, a jump is made, relative to the next 
instruction, by the byte offset W. 



NF J SB Not Equal False Jump 

[int,int:] D3 

If TOS = TOS— 1, a jump is made, relative to the next 
instruction, by the byte offset SB. 



T JP SB True Jump 

[bool:] Fl 

If TOS is TRUE, a jump is made, relative to the next instruction, 
by the byte offset SB. 



UJP SB Unconditional Jump 

[:] 8A 

A jump is made, relative to the next instruction, by the byte 
offset SB. 



UJPL W Unconditional Long Jump 

[••] 8B 

A jump is made, relative to the next instruction, by the byte 
offset W. 



XJP B Case Jump 

[int:] D6 

B is the offset of the case jump table within the constant pool of 
the current code segment. The integer value at TOS is an index 
into this jump table. 
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The case jump table is structured as follows: 



MIN 


mini mum 1 ndex 


MAX 


maximum 1 nd«x 


tab I© 


: (MAX - MIN) -). 1 ^ 
word table containing 
relative jump offsets 



If TOS is in the range MIN through MAX, inclusive, a jump is 
made, relative to the next instruction, by the word quantity in 
table entry (TOS — MIN). (The jump table is word—indexed 
starting at zero, and follows the MAX value in memory). If the 
TOS operand has a value outside of the range MIN. .MAX, no 
jump occurs and the next p— code instruction in sequence is 
executed. 



XJP2 B Indexed Jump Integer2 

[int2:] FF OE 

This instruction performs the same operation as XJP, except that 
the index value on the stack and the MIN and MAX values in the 
table are integer2 values rather than integer values. The table 
entries are still word values. 

Routine Calls and Returns 

These instructions perform procedure calls and returns. 

For each procedure call, the following actions occur. 

If the Data _ Size word for the procedure being called (procedure 
number at TOS) is negative, nothing is allocated on the stack and 
a native code call is made. Execution resumes with the following 
p—code. 
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Otherwise, DATA__SIZE words and an Mark Stack are allocated 
on the stack. If STACK __ SLOP words are not left on the stack 
after the MSCW and data are allocated, a stack fault is issued. 
For intersegment calls, EREC and EVEC are set to reflect the 
new environment. 



BPT Breakpoint 

[lactivation] 9E 

A breakpoint execution error is issued unconditionally. 



CPF Call Formal Procedure 

[addr,addr,int:activation] 97 

TOS contains a procedure number. TOS—l contains an EREC 
pointer; TOS— 2 contains a static link. The procedure TOS in 
the segment indicated by TOS—l is called. If the segment 
indicated by TOS—l is not in memory, a segment fault is issued. 



CPG UB Call Global Procedure 

[param:activation] 91 

Global procedure UB in the currently executing segment is called. 
The static link field of the MSCW is set to the value of BASE 
(the global data MSCW). 



CPI DB,UB Call Intermediate Procedure 

[param:activation] 92 

Intermediate procedure UB in the currently executing segment is 
called. The static link field of the MSCW is set to the 
intermediate MSCW that is DB lexical levels above the current 
MSCW. 
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CPL UB Call Local Procedure 

[paramractivation] 90 

Local procedure UB in the currently executing segment is called. 
The static link field of the MSCW is set to the old value of MP. 



CXG UBl,UB2 Call External Global Procedure 

[paramractivation] 94 

The global procedure UB2 in segment UBl is called. If segment 
UBl isn't in memory, a segment fault is issued. The static link 
field of the MSCW is set to the new value of BASE (the global 
data MSCW). 

If UBl is 1 and the procedure number matches one of the 
standard procedure numbers, the p— code performs the standard 
procedure instead of the call. See the STANDARD 

PROCEDURES section of this chapter. 



CXI UBl,DB,UB2 Call Intermediate External Proc 

[paramractivation] 95 

The intermediate procedure UB2 in segment UBl is called. If 
segment UBl isn't in memory, a segment fault is issued. The 
static link field of the MSCW is set to the intermediate MSCW 
that is DB lexical levels above the current MSCW. 



CXL UB1,UB2 Call Local External Procedure 

[param:activation] 93 

The local procedure UB2 in segment UBl is called. If segment 
UBl isn't in memory, a segment fault is issued. The static link 
field of the MSCW is set to the old value of MP. 
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LSL DB Load Static Link onto Stack 

[:addr] 99 

DB indicates the number of static links to traverse. A pointer to 
the MSCW that is DB links above the current MSCW is pushed 
onto the stack. 



RPU B Return from Procedure 

[activationrfunc] 96 

Execution returns to the calling procedure. 

The EREC pointer in the MSCW indicates the segment to return 
to. If the segment is not in memory, a segment fault is issued. 

Otherwise, MP is set to the Dynamic _ Link field of the MSCW. 
If the MSPROC field of the MSCW is positive, IPC is restored 
from the MSCW. Otherwise, IPC is set to the Exit_IC value 
found just before the procedure code in the segment. CURPROC 
is restored from the MSCW (negating the value, if necessary). If 
the EREC pointer of the MSCW differs from EREC, EREC and 
EYEC are set to reflect the new segment. 

If the MSPROC field of the MSCW indicates that the return is to 
a Macintosh ROM routine, the RPU restores the processor 
registers and returns to the ROM. (See the description of the 
SETAR p— code for more details.) 



SCIPn UB Short Call Intermediate Procedure 

[param:activation] EF..FO 

Intermediate procedure UB in the currently executing segment is 
called. The Static _ Link field of the MSCW is set to the lexical 
parent (SCPIl) or grandparent (SCPI2) of the current MSCW. 
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SCXGn UB Short Call External Global Procedure 

[param:activation] 70. .77 

The global procedure UB in segment n is called. If segment n 
isn't in memory, a segment fault is issued. 

If the instruction is SCXGl and the procedure number matches 
one of the standard procedure numbers, the p— code performs one 
of these standard procedures, instead of the calL See the 
STANDARD PROCEDURES section of this chapter. 

Concurrency Support 



SIGNAL Signal 

[addr:] DE 

The operand at TOS is the address of a semaphore. If the 
semaphore's wait queue is empty or the count is negative, the 
count is incremented by one. Otherwise, the TIB at the head of 
the semaphore's wait queue is put on the ready queue, and its 
hangup is set to NIL. If the new task has a higher priority than 
the current task, a task switch occurs. 



WAIT Wait 

[addr:] DF 

The operand at TOS is the address of a semaphore. If the 
semaphore's count is greater than zero, the count is decremented 
by one. Otherwise, the current TIB is put on the semaphore's 
wait queue, its hangup is set to TOS, and a task switch occurs. 
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String Operations 

The following instructions perform string assignment and 
comparison operations. 



ASTR UB1,UB2 Assign String 

[addr,word:] EB 

TOS— 1 is the address of the destination string variable. UB2 is 
the declared size of that string (the number of characters it may 
hold). TOS is either the address of a string variable (if UBl is 0), 
or the offset of a string constant in the constant pool of the 
current segment. 

A string overflow execution error is issued if the dynamic size of 
the source string is greater than the declared size of the 
destination string. 

Otherwise, the source string is copied to the destination string. 



CSTR Check String Index 

[:] EC 

TOS— 1 is the address of a string variable. TOS is an index into 
that variable. 

If the index is less than 1 or greater than the dynamic length of 
the string variable, a value range execution error is issued. 



EQSTR UB1,UB2 Equal String 

[word,word:bool] E8 

UBl and UB2 are mode flags that refer to TOS and TOS-1, 
respectively. If UBl (or UB2) is 0, then TOS (or TOS-l) is a 
pointer to a string. If UBl (or UB2) is 1, then TOS (or TOS-l) 
is an offset of a string within the current segment. 
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The Boolean result of the comparison TOS— 1 = TOS is pushed 
onto the stack. The bytes are compared one by one in the 
natural byte order of the processor until a mismatch is found or 
the end of the shorter string is reached. The comparison begins 
at the second element of the strings. If there is a mismatch in 
any character position, FALSE is pushed on the stack. 
Otherwise, the lengths of the strings are compared, and the 
Boolean result of the comparison length(TOS— l) = length(TOS) 
is pushed. 



GESTR UB1,UB2 Greater or Equal String 

[word,word:bool] EA 

UBl and IJB2 are mode flags that refer to TOS and TOS— 1, 
respectively. If UBl (or UB2) is 0, then TOS (or TOS-l) is a 
pointer to a string. If UBl (or UB2) is 1, then TOS (or TOS-1) 
is an offset of a string within the current segment. 

The Boolean result of the comparison TOS— 1 >= TOS is 
pushed onto the stack. The bytes are compared one by one in the 
natural byte order of the processor until a mismatch is found or 
the end of the shorter string is reached. The comparison begins 
at. the second element of the strings. If there is a mismatch in 
any character position and the character in TOS— 1 < the 
character in TOS, FALSE is pushed on the stack. Otherwise, the 
lengths of the strings are compared, and the Boolean result of the 
comparison length(TOS— 1) >= length(TOS) is pushed. 



LESTR UB1,UB2 Less or Equal String 

[word,word:bool] E9 

UBl and UB2 are mode flags that refer to TOS and TOS-1, 
respectively. If UBl (or UB2) is 0, then TOS (or TOS-l) is a 
pointer to a string. If UBl (or UB2) is 1, then TOS (or TOS-l) 
is an offset of a string within the current segment. 

The Boolean result of the comparison TOS— 1 <= TOS is 
pushed onto the stack. The bytes are compared one by one in the 
natural byte order of the processor i itil a mismatch is found or 
the end of the shorter string is reached. The comparison begins 
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at the second element of the strings. If there is a mismatch in 
any character position and the character in TOS — l > the 
character in TOS, FALSE is pushed onto the stack. Otherwise, 
the lengths of the strings are compared, and the Boolean result of 
the comparison length(TOS— l) <= length(TOS) is pushed. 

Operand Type Conversion Operators 

The following instructions convert data on the stack from one 
data type to another. 



ATP Absolute Address to Pointer 

[abs-ptr:word-ptr] FF 34 

The machine absolute address value at TOS is replaced on the 
stack by the p— machine word pointer value that points to the 
same memory word. 



DEREF Dereference Absolut„e Handle 

[abs--ptr:abs_ptr] FF 36 

The operand at TOS is a machine absolute address that points to 
a doubleword containing another absolute address. This 
instruction replaces the pointer at TOS by a value which is equal 
to the low order three bytes of the doubleword that it points to. 



EXXI Extend Integer to Integer2 

[int:int2] FD 

The integer operand at TOS is replaced on the stack by the 
integer2 operand which contains the same value. 



EXTU Extend Unsigned Integer to Integer2 

[uint:int2] FF ID 

The unsigned integer operand at TOS is converted to an integer2 
operand. 



1200301:10B 10-79 



P-MACHINE ARCHITECTURE Chapter 10 



FLT Float Top-of-Stack 

[int:real] CC 

Integer TOS is converted to a floating point number, and the 
result is pushed onto the stack. 



FLT2 Float Integer2 

[int2:real] FF 12 

The integer2 operand at TOS is converted to a floating point 
number and the result replaces the integer2 operand on the stack. 



FLTU Float Unsigned Integer 

[uint:real] FF IF 

The unsigned integer operand at TOS is converted to a floating 
point number on top of the stack. 



PTA Pointer to Absolute Address 

[word-ptr:abs~ptr] FF 33 

The p— machine word pointer value at TOS is replaced on the 
stack by the 32— bit machine absolute address which points to the 
same memory location. 



OTP Word Offset to Pointer 

[int:word~ptr] FF 2D 

The integer operand at TOS contains a word memory offset, 
which is replaced on the stack by a word pointer which points to 
the memory word indicated by the memory offset. This 
operation is performed by shifting the word offset to the left by 
one bit to form a word pointer. 
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PTO Pointer to Word Offset 

[word-ptnint] FF 2C 

The word pointer operand at TOS is converted to a word 
memory offset. The memory offset replaces the operand at TOS. 
This operation is performed by shifting the pointer (a byte offset) 
to the right by one bit to form a word offset. 



RED 2 Reduce Integer2 to Integer 

[int2:int] FC 

The integer2 operand at TOS is reduced to an integer. An 
Integer Overflow execution error is reported if the result is 
outside the range --32768. .32767. 



REDU Reduce Integer2 to Unsigned Integer 

[int2:uint] FF IC 

The integer2 operand at TOS is removed from the stack, 
converted to an unsigned integer, and the result pushed onto the 
stack. An Integer Overflow execution error is reported if the 
value is negative or greater than 65535. 



REXTI Reversed Extend Integer 

[int,int2:int2,int2] FF 10 

The integer operand at T0S~1 is converted to an integer2 
operand and inserted into the stack below the integer2 operand at 
TOS. Following the operation, there are two integer2 operands 
on the stack. 



REXTU Reversed Extend Unsigned Integer to Integer2 

[uint,int2:int2,int2] FF IE 

The unsigned operand at TOS— 1 is replaced on the stack by an 
integer2 of the same value. The integer2 operand at TOS 
remains on top of the stack. 
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RFLX Reversed Float Integer 

[int,real:real,real] FF 11 

The integer operand at TOS— 1 is converted to a floating point 
number and the result replaces TOS—l on the stack. Following 
the operation, the real operand at TOS remains the top operand 
on the stack. 



RFLT2 Reversed Float Integer2 

[int2,real:real,real] FF 13 

The integer2 operand at TOS— 1 is converted to a floating point 
number and the result replaces the integer2 operand at TOS— 1. 
Following the operation, the real operand at TOS remains the 
top pperand on the stack. 



RFLXU Reversed Float Unsigned Integer 

[uint,real:real,real] FF 20 

The unsigned integer operand at TOS — 1 is converted to a 
floating point number. The real operand at TOS remains on top 
of the stack. 



ROUND Round Real 

[reahint] BF 

Real TOS is converted to an integer by rounding, and the result 
is pushed onto the stack. If the result is outside the range 
—32768 to 32767, a floating point execution error is issued. 



RGND2 Round Real to Integer2 

[reai:int2] FF 2F 

This performs the same operation as RND, but the integer result 
is of type integer2. A Floating Point execution error is reported 
if the result is outside the range of integer2 values. 
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TRNC2 Truncate Real to Integer2 

[real:int2] FF 2E 

This performs the same operation as TRUNC, but the integer 
result is of type integer2. A Floating Point execution error is 
reported if the result if outside the range of integer2 values. 



TRUNC Truncate Real 

[realdnt] BE 

The floating point operand at TOS is converted to an integer by 
truncating, and the result is pushed onto the stack. If the result 
isn't in the range —32768 to 32767, a Floating Point execution 
error is issued. 

Miscellaneous Instructions 

These instructions perform miscellaneous operations that do not 
fit into one of the previous categories. 



DUPD Duplicate Doubleword 

[dword:dword,dword] FF 01 

The doubleword operand at TOS is replicated on the stack. 



DUPR Duplicate Real 

[real:real,real] C6 

The r^al operand at TOS is duplicated on top of the stack. 



DUPW Duplicate One Word 

[vs^ord:word,word] E2 

The word operand at TOS is replicated on the stack. 
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LEREC Load Current EREC Pointer 

[:word~ptr] AA 

A word pointer addressing the EREC corresponding to the 
currently executing code segment is pushed onto the stack. 

NOTE: EREC produces the same result as "SLDC 8; LPR" but 
an update of the TIB for the currently executing task does not 
occur. 



LPR Load Processor Register 

[int:word] 9D 

TOS is a register number. The value of the register indicated in 
TOS is pushed onto the stack. If TOS is negative, the following 
table indicates which register is pushed: 

-^1 CURT ASK 
-2 EVEC 
-3 READYQ 

If TOS is positive, the current p— Machine registers are saved in 
the TIB, and TOS is the word index of the register in the TIB to 
be pushed. If TOS is less than —3 or greater than the size of a 
TIB, the result of LPR is undefined. 



NATIVE Enter Native Code 

[:] A8 

This instruction cannot be generated on the Macintosh by the 
UCSD Pascal compiler. 



NATINFO B Native Code Information 

[:] A9 

The instruction pointer is incremented to B bytes beyond the 
byte starting after B in the p—code stream. The bytes after B 
contain information that is not used by UCSD Pascal on the 
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Macintosh. This instruction acts like a long form of NOP or a 
forward jump. 



NOP No Operation 

[:] 9C 

No operation is performed. Execution continues. 



RCALL W Macintosh ROM Call 

[params:result] FF 32 

The Macintosh ROM trap instruction contained in W is executed. 
The parameters that must be on the stack before this instruction 
and the results left on the stack by executing this instruction are 
dependent on the ROM call being executed. 



SETAR Set Action Routine 

[word— ptr,word— ptr,int,int:abs— ptr] FF 37 

To explain this p— code, mnemonic names for the stack operands 
will be used. STATLNK is the word pointer operand at TOS-3. 
ERECPTR is the word pointer operand at T0S~2. PROCNUM 
is the integer operand at TOS—l. SLOTNUM is the integer 
operand at TOS. Each of these stack operands will be removed 
by this instruction and an absolute pointer operand ADDR will 
be pushed onto the stack as the result. 

This instruction establishes a p— code routine as an "action 
routine". STATLNK is the static link pointer required in the 
MSSTAT field of the MSCW built for a call to the action 
routine. ERECPTR is a p-Machine pointer to the EREC for the 
segment containing the action routine. PROCNUM is the 
procedure number for the routine. SLOTNUM is a number in the 
range thru 9 which selects which p—Machine caller routine is to 
be used. 
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The p— Machine remembers which p— code routines have been 
associated with its caller routines in a table. 



Conceptually, the mechanism involves associating each p— code 
action routine with a unique native code "caller" routine in the 
p— Machine. The 32— bit absolute address of the caller routine is 
returned as the result ADDR. The address ADDR can then be 
passed to the Macintosh operating system and ROM routines. 
When the Macintosh ROM decides to call an action routine, it in 
fact calls the native code caller routine in the p— Machine. The 
native code caller routine in turn forces the p— Machine to do a 
call to thep— code action routine to which it has been "attached". 
When the p— code action routine returns, the native code caller 
routine returns to its caller. 



There are ten native code "caller" routines (numbered thru 9) 
available for use. 



NOTE: p— code action routines must reside in code segments that 
are loaded in memory when they are called by the p— Machine's 
caller routines. (The caller routines cannot handle a segment 
fault because there is no p— code call instruction to re— execute 
after the segment has been brought into memory.) 

When one of the caller routines calls a p— code action routine, bit 
8 of the MSPROC word of the MSCW is set to 1. This is a 
special flag used to indicate to the RPU instruction that control 
should be transferred back to the Macintosh ROM or operating 
system. This technique takes advantage of the fact that 
MSPROC is normally in one of the following ranges of 
hexadecimal values when an RPU is executed: 

OOOX .. OOFF (Normal return) 



If the RPU handler detects bit 8 of MSPROC turned on, and bit 
15 isn't turned on, it causes a return to the appropriate 
Macintosh ROM routine. 
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SPR Store Processor Register 

[intjword:] Dl 

TOS— 1 is a register number. If TOS— 1 is negative, TOS is 
stored in one of the following registers: 

-1 CURT ASK 
-2 EVEC 
-3 READYQ 

Otherwise, the current p— Machine registers are stored in the 
TIB. TOS is stored in the TIB at offset TOS-1. Finally, the 
p— Machine registers are restored from the TIB. 



SWAP Swap 

[word,word:word,word] BD 

Word TOS is swapped with word TOS— 1 on the stack. 



SWAPD Swap Doublewords 

[dword,dword:dword,dword] FF 02 

The two doubleword operands at TOS and TOS— 1 are exchanged 
on the stack. 



STANDARD PROCEDURES 

The standard procedures are procedures that are implemented in 
the PME directly, either for speed or because the nature of the 
procedure requires that it be written in native code. A standard 
procedure is called via a CXG or SCXGl instruction. The 
procedure executed is determined by the procedure number. 

Most of the standard procedures require parameters on the stack, 
and some expect a function return value to be passed back. In 
some sense they act more like individual p— codes than 
procedures, because no RPU instruction is executed to return 
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control to the caller. For this reason, the procedure descriptions 
that follow are presented in a format similar to that of the 
p— code descriptions — showing the stack before and after 
execution. The first line of each description gives the name of the 
procedure and its parameters; the second line gives the stack 
values and procedure number. 

Standard procedures fall into several categories: I/O support, 
string procedures, compiler procedures, code pool procedures, 
concurrent procedures, and miscellaneous procedures. The 
procedures in each category are discussed in the paragraphs that 
follow. 

I/O Support 



lORESULT 

[zero:int] IE 

TOS is a return word. lORESULT returns the value of the 
p— Machine register lORESULT. 

lOCHECK 

lOCHECK tests the p-Machine register lORESULT for 0. If the 
register is nonzero, an I/O execution error is issued. 



String 

The standard string procedures are MOVELEFT, MOVERIGHT, 
FILLCHAR, and SCAN. 
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MOVELEFT 

[byte— ptr, byte— ptr,mt:] OF 

The integer operand at TOS is the number of bytes to move. 
The operand at TOS— 1 is a byte pointer to the destination. The 
operand at TOS— 2 is a byte pointer to the source. If TOS is or 
negative, no bytes are moved. Otherwise, the bytes are moved 
one at a time starting from the left (low order byte). 



MOVERIGHT 

[byte— ptr, byte— ptr, int:] 10 

The integer operand at TOS is the number of bytes to move. 
The operand at TOS— 1 is a byte pointer to the destination. The 
operand at TOS— 2 is a byte pointer to the source. If TOS is or 
negative, no bytes are moved. Otherwise, the bytes are moved 
one at a time starting from the right (high order byte). 



FILLCHAR 

[byte— ptr,int,word:] 15 

The operand at TOS is the character. The integer operand at 
TOS-1 is the length to fill. The operand at TOS-2 is the 
starting address for the fill. If TOS— 1 is or negative, no filling 
is done. Otherwise, memory is filled with the byte TOS for 
TOS— 1 bytes starting at address TOS— 2. 



SCAN 

[zero, int, bool, byte, byte— ptr, word:int] 16 

The word operand at TOS is a mask field (unused). The operand 
at TOS— 1 is a byte pointer to the array to scan. The operand at 
TOS— 2 is the byte to look for. The boolean operand at TOS— 3 
is the scan kind (0 means until equal, 1 means until not equal). 
The integer operand at TOS— 4 is the length to scan. If the 
length is negative, the scan proceeds to the left. The zero 
operand at TOS— 5 is the function result word. 
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The array at TOS— 1 is scanned in the direction indicated in 
T0S--4 until the character TOS-2 is found (TOS-3 = 0) or a 
nonmatching character is found (TOS— 3 = 1) or until the length 
in TOS— 4 is exhausted. The distance between the character 
where SCAN stopped and the start character is passed back as 
the function result. 



Compiler 

The standard compiler procedures are TREESEARCH and 
IDSEARCH. 



TREESEARCH 

[zero,addr,addr,addr:int] 26 

The operand at TOS is a pointer to the target string, which is a 
packed array of eight characters. The operand at TOS— 1 is a 
pointer to where the result of the search will be saved. The 
operand at TOS— 2 is a pointer to the root of the identifier tree 
to be searched. The zero operand at TOS— 3 is the return word. 

TREESEARCH searches the symbol table tree TOS-2 for the 
target string TOS, returning a pointer to where the target was 
found in the variable pointed to by TOS— 1. If the target wasn't 
found, the variable pointed to by TOS— 1 will point to the leaf 
node of the tree that was searched last. The function result 
returns status information: 



tfmrQmtf was found 

1 t.arge-b is to -the riah-fc 
~1 t.«rg«t> IS "bo t>h« l«Tt> 
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Each node of the tree contains the following fields at the 
indicated byte offsets: 

O nam© (8 charac*b«rs) 
8 right, link (poln"b«r) 
10 l«T-b link (point.«r) 



IDSEARCH 

[addr,addr:] 25 

The operand at TOS is the address of a buffer. The operand at 
TOS—l is the address of a record that has the following fields at 
the indicated byte offsets: 

SYMCURSOR 

2 SY 

4 OP 

6 ID 

IDSEARCH scans the buffer at byte offset SYMCURSOR for an 
identifier (string beginning with a letter, containing letters, 
digits, and underscores), ignoring underscores and masking 
lowercase to uppercase. The identifier is blank— filled to eight 
characters, then placed in ID for a maximum of eight characters. 
SYMCURSOR is updated to point to the last character past the 
identifier. 

Finally, the identifier is looked up in a table of reserved words, 
and its two characteristics are filled into SY and OP. If the 
identifier is not found in the table, SY is set to and OP is set to 
15. 

Here is the table of reserved words, along with the SY and OP 
values for each one: 

ID SY OP 



AND 


39 


2 


ARRAY 


44 


15 


BEGIN 


19 


15 
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CASE 


21 


15 


CONST 


28 


15 


DIV 


39 


3 


DO 


6 


15 


DOWNTO 


8 


15 


ELSE 


13 


15 


END 


9 


15 


EXTERNAL 


53 


15 


FOR 


24 


15 


FILE 


46 


15 


FORWARD 


34 


15 


FUNCTION 


32 


15 


GOTO 


26 


15 


IF 


20 


15 


IMPLEMEN 


52 


15 


IN 


41 


14 


INTERFAC 


51 


15 


LABEL 


27 


15 


MOD 


39 


4 


NOT 


38 


15 


OF 


11 


15 


OR 


40 


7 


PACKED 


43 


15 


PROCEDUR 


31 


15 


PROCESS 


56 


15 


PROGRAM 


33 


15 


REPEAT 


22 


15 


RECORD 


45 


15 


SET 


42 


15 


SEGMENT 


33 


15 


SEPARATE 


54 


15 


THEN 


12 


15 


TO 


7 


15 


TYPE 


29 


15 


UNIT 


50 


15 


UNTIL 


10 


15 


USES 


49 


15 


VAR 


30 


15 


WHILE 


23 


15 


WITH 


25 


15 
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Code Pool 



The standard code pool procedure is RELOCSEG. 

RELOCSEG 

[addr:] 04 

The operand at TOS is the address of an EREC. RELOCSEG 
relocates the segment pointed to by the EREC. Since 

RELOCSEG is called after a segment is first read into memory, 
all necessary relocation is performed. 



Concurrency 

The standard concurrency procedures are: QUIET, ENABLE, 
and ATTACH. 

QUIET 

[:] IB 

QUIET must disable all p— Machine events such that no attached 
semaphore is signaled until the corresponding call to ENABLE is 
made. 



ENABLE 

[:] _ IC 

ENABLE reenables p— Machine events that have been disabled by 
QUIET. 



ATTACH 

[addr,int:] ID 

The integer operand at TOS is the number of a p— Machine event 
vector. It must be in the range through 63. The operand at 
TOS— -1 is the address of a semaphore. 
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ATTACH associates the semaphore pointed to by TOS— 1 with 
the vector TOS such that whenever the event TOS is recognized^ 
the semaphore is signaled. If the semaphore pointer is NIL, 
vector TOS must be unattached from any sempahore it was 
formerly attached to. If TOS is not in the range through 63, no 
operation is performed. 



Miscellaneous 

Standard procedures classified as miscellaneous are TIME and 
POWEROFTEN. 

TIME 

[addr,addr:] 14 

The operand at TOS is a pointer to where the high word of the 
time will be saved. The operand at TOS— 1 is a pointer to where 
the low word of the time will be saved. 

TIME saves the high and low words of the system clock (a 32— bit 
60 Hz clock) in the indicated words. The clock value returned is 
the Macintosh time (number of ticks since January 1, 1904). 



POWEROFTEN 

[zero, zero, zero, zero, int:real] 20 

The integer operand at TOS is a positive integer power. 
POWEROFTEN returns the real value ten to the power of TOS. 
If TOS is negative or TOS is greater than the largest expressible 
power, a floating point execution error is issued. The four words 
of zero are the return value. 
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LONG INTEGERS 

The long integer data type is a nonscalar data type unique to 
UCSD Pascal. Long integers may be up to 36 decimal digits long. 
Although they lack some of the flexibility of scalar types, long 
integers allow operations on integers outside the range of UCSD 
Pascal integer2 type (-2147483648. .2147483647). In 

computations, long integers act like real numbers; however, they 
act more like sets in the way they are implemented and in the 
way they are passed as parameters. 

Number Format 

On the stack (when used in calculations), long integers are of 
variable length, and consist of a length word followed by a 
number component. 

A long integer five words long that is on the top of stack looks 
like this: 



+ + < — sp 

length (1 word) 



number (5 words) 



rest o 



t. of s-fcack 



number 
component 



/////////////// 



When a long integer is assigned to a variable, or stored in a file 
on disk, only the number component is present. The length word 
is present only when the number is on the stack. Each long 
integer variable is allocated a fixed number of words. When a 
long integer is assigned to a variable, the number must be coerced 
to the storage size of the variable. If this can't be done, an 
Integer Overflow execution error occurs. 

The storage size for long integers is from two to ten words, based 
on the number of digits specified in the declaration statement. 
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The following table shows the allocation size for each declared 
size. 

digits size (words) 

1..4 2 

5. .8 3 

9.. 12 4 

13. .16 5 

17. .20 6 

21. .24 7 

25. .28 8 

29. .32 9 

33. .36 10 



The declaration size reflects the approximate number of digits 
that may be stored in the number. More digits than the declared 
number of digits may sometimes be stored in a long integer 
variable. As a result, the overflow value for a long integer may 
vary depending on the size of the long integer. The fact that 
more digits than the declared size may be stored in a long integer 
variable shouldn't be relied upon. The number of digits specified 
in the declaration of a long integer should be treated as the 
maximum number of digits that the number will ever hold. 

The following paragraphs show the format of the long integer 
number component. 

UCSD Pascal on the Macintosh stores long integers by using a 
sign— magnitude binary— coded decimal (BCD) format with the 
first word a sign word. The magnitude part of the long integer is 
stored in natural byte order (the most significant digits in the 
byte with the lowest address); the number is right— justified 
within the field. In the sign word, means positive, and FFFF 
means negative. 



Examp ! «s i 

CO OO 00 02 76 99 

FF FF 00 10 

OO 00 OO 00 

FF FF OO OO 



27699 

~io 

O 

a I so O 
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Long Integer Constants 

Long integer constants are constructed at run time by code 
generated by the compiler. This code builds each constant by 
doing a series of calculations on integer s and integer2 s. 

Example 1. To build the long integer constant 12, the compiler 
generates code to do the following: 

ILI(12) 



where 12 is an integer constant, and ILI is the routine to convert 
an integer to a long integer. 

Example 2. To build —8733442, the compiler generates code to 
do the following: 

-(I2LI (8733442)) 



Example 3. To build the long integer constant 123456789012345, 
the compiler generates code to do the following: 

I2LI (1234567890) *I2LI(100000) + I2LI (12345) 
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Here is a listing of the actual p— code generated for the last 
example. The long integer routines called to do each operation 
are described in detail later. 



LAO 


1 




LDCD 


1234567890 


SLDC 


22 




SCXG 


LONGOPS 


2 


LDCD 


lOOOOO 




SLDC 


22 




SCXG 


LONGOPS 


2 


SLDC 


8 




SCXG 


LONGOPS 


2 


LDCI 


12345 




EXT I 
SLDC 


22 




SCXG 


LONGOPS 


2 


SLDC 


2 




SCXG 


LONGOPS 


2 


SLDC 


5 




SLDC 







SCXG 


LONGOPS 


2 


STM 


5 





8610 

FF00499602D2 

16 

7202 

FF00000186A0 

16 

7202 

08 

7202 

813930 

FD 

16 

7202 

02 

7202 

OB 

00 

7202 

8E05 



I2LI 

I2LI 
MPLI 

I2LI 
ADLI 

ADJL 



The LONGOPS Unit 

LONGOPS is the UCSD Pascal unit that implements the long 
integer functions. LONGOPS contains three procedures: 
FREADDEC reads a long integer, FWRITEDEC writes a long 
integer, and DECOPS performs the long integer arithmetic 
functions. 



Although LONGOPS isn't part of the p— Machine, it isn't a 
normal UCSD Pascal unit either. Normally, a UCSD Pascal 
procedure or function must have fixed—size parameters, where 
the parameter's size is known at compile time. There is one 
procedure in LONGOPS (DECOPS) that takes variable size 
parameters. One way to view this is that each call to DECOPS is 
like the execution of a single p— code in the PME. Different 
functions of DECOPS take different parameters and return 
different results, just as different p— codes do. In fact, DECOPS 
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performs functions very similar to the set p— codes in the PME. 

The DECOPS Routine 

DECOPS is an external (assembly language) procedure in unit 
LONGOPS that performs the long integer functions. 

Parameters are passed to DECOPS on the stack. On every call, 
the stack looks like this: 



1-2 words 
1 word 

n words 

r«s"b of stack 



r«t-urn address 
function code 



parameters 
/////////////// 



<^SP 



The return address is the standard return information for an 
assembly language routine. 

The function code is a word that describes the function to be 
performed. The actions performed by each function are discussed 
below, along with the numeric value of the associated function 
code. Function codes are even integers between and 34. Even 
integers are used to facilitate jumping indirectly through a word 
array of addresses. 

The parameters vary for each long integer function. The 
parameter requirements for each routine are included in the 
description of the routine. 

Below are the descriptions of each routine in DECOPS. The first 
line of each description contains the function name and 
mnemonic. The second line contains a list of the stack operands 
before and after the function, and the function code (in hex). 
The stack lists are in brackets, separated by a colon. The list to 
the left of the colon is the stack before the function; the list to 
the right of the colon is the stack contents after the function. 
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The rightmost operand in each list is the top of stack operand. 
Finally, there is a detailed description of the function, including 
any error conditions that should be recognized. 

Here are the abbreviations used in the descriptions: 

longint Long Integer. A variable— length long integer, 

containing a length word. 

alongint Adjusted Long Integer. A fixed length long integer 
that does not contain a length word. 

int A 16— bit signed integer quantity. 

bool Boolean. A boolean quantity (l = TRUE, 

0=FALSE). 

uint Unsigned Integer. A 16— bit unsigned integer in the 

range 0. .65535 

int2 Integer2. A 32— bit signed integer. 

addr Address. A 16— bit offset within the Pascal data 

area. 



AD JL Adjust Long Integer 

[longint, int:alongint] 00 

Adjusts the longint operand at TOS— 1 into an adjusted long 
integer suitable for assignment to a variable. It does this by 
stripping off the size word from the longint, then expanding or 
contracting it until it is the number of words in length as specfied 
by the integer operand at TOS. If a contraction can't be done 
because of overflow, an Integer Overflow execution error is 
reported. 
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ADLI Add Long Integer 

[longint,longint:longint] 02 

Adds the two long integer operands at TOS— 1 and TOS, placing 
the result on the stack. If the result has more than 36 digits, an 
Integer Overflow execution error may be reported. 



SBLI Subtract Long Integer 

[longint,longint:longint] 04 

Subtracts the long integer operand at TOS from the long integer 
operand at TOS— 1, placing the result on the stack. If the result 
has more than 36 digits, an Integer Overflow execution error may 
be reported. 



NGLI Negate Long Integer 

[longint:longint] 06 

The long integer operand at TOS is negated. 



MPLI Multiply Long Integer 

[longint,longint:longint] 08 

The long integer operands at TOS— 1 and TOS are multiplied, 
and the result is pushed onto the stack. If the result has more 
than 36 digits, an Integer Overflow execution error may be 
reported. 



DVXI Divide Long Integer 

[longint,longint:longint] OA 

The long integer operand at TOS— 1 is divided by the long 
integer operand at TOS, and the result is pushed onto the stack. 
If the result has more than 36 digits, an Integer Overflow 
execution error may be reported. If the divisor is zero, a Divide 
by Zero execution error is reported. 
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LISXR Long Integer to String 

[longint,acidr,int:] OC 

The long integer operand at TOS— 2 is converted into a string, 
placing the result at the location pointed to by the operand at 
TOS— 1. The integer operand at TOS is the maximum length of 
the string. If the long integer requires more than characters than 
specified by the maximum length, a String Overflow execution 
error is reported. 



RILI Reversed Integer to Long Integer 

[int,longint:longint,longint] OE 

The integer operand at TOS— 1 is converted into a long integer. 
The long integer at TOS is left unchanged at the top of the stack. 



CMP LI Compare Long Integers 

[longint,longint,int:bool] 10 

The long integer operand at TOS— 2 is compared v^ith the long 
integer operand at TOS — 1 and the boolean result of the 
comparison is pushed onto the stack. The type of comparison to 
be .performed is indicated by the integer operand at TOS as 
follows: 

less than 

1 less than or equal 

2 greater than or equal 

3 greater than 

4 not equal 

5 equal 



IIjI Integer to Long Integer 

[int:longint] 12 

The integer operand at TOS is converted into a long integer and 
pushed onto the stack. 



10-102 1200301:10B 



LONG INTEGERS 



LII Long Integer to Integer 

[longintdnt] 14 

The long integer operand at TOS is converted into an integer and 
pushed onto the stack. If the conversion can't be made (long 
integer isn't in the range —32768. .32767), an Integer Overflow 
execution error is reported. 



I2LI Integer2 to Long Integer 

[int2:longint] 16 

The integer2 operand at TOS is removed from the stack, 
converted into a long integer, and the result is pushed onto the 
stack. 



Rl2LI Reversed Integer2 to Long Integer 

[int2,longint:longint,longint] 18 

The integer2 operand at TOS — 1 is removed from the stack, 
converted into a long integer, and the result is pushed onto the 
stack. Following the operation, the long integer operand at TOS 
remains at the top of the stack. 



LII2 Long Integer to Integer2 

[longint:int2] lA 

The long integer operand at TOS is removed from the stack, 
converted to an integer2 operand, and the result is pushed onto 
the stack. If the value of the long integer is outside the range of 
values that can be represented by an integer2 operand, an Integer 
Overflow execution error is reported. 



ULI Unsigned Integer to Long Integer 

[uintilongint] IC 

The unsigned integer operand at TOS is removed from the stack, 
converted to a long integer, and the result is pushed onto the 
stack. 
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RULI Reversed Unsigned to Long Integer 

[uint,longint:longint,longint] IE 

The unsigned integer operand at TOS— 1 is converted to a long 
integer on the stack. Following the operation, the long integer 
operand at TOS remains at the top of the stack. 



LIU Long Integer to Unsigned Integer 

[longintruint] 20 

The long integer operand at TOS is removed from the stack, 
converted to an unsigned integer, and the result is pushed onto 
the stack. If the long integer operand is negative, or greater than 
65535, an Integer Overflov^ execution error is reported. 



ABLI Absolute Value Long Integer 

[longint'.longint] 22 

The long integer operand at TOS is replaced by the long integer 
result containing its absolute value. 
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A.l. Table of Compile Time Dependencies 

The following table indicates the compile time dependencies 
between the Macintosh interface units. For example, if your 
program uses the unit ControlMgr then it must first use the units 
MacCore, QdTypes, and TbTypes. All of the units with a 'C in 
the code column contain code and are therefore included in the 
Mac Library file. Some of the units that contain code reference 
other units that contain code. Runtime dependencies are listed 
after the 'C in the code column. For example, the FiieMgr 
references the FBIOMgr. If your program uses the FiieMgr then 
you must make the FiieMgr, PBIOMgr and MacCore units 
available to your program at runtime. 
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A. 2 Identifier Cross— Reference List 

The following list defines the two— letter codes used for the 
ToolBox Managers. 



CM 


ControlMgr 


DS 


DeskMgr 


DL 


DialogMgr 


EM 


EventMgr 


FL 


FileMgr 


FM 


FontMgr 


MC 


Mac Core 


MD 


MacData 


ME 


MacErrors 


MM 


Memory Mgr 


MN 


MenuMgr 


OT 


OSTypes 


OU 


OSUtilities 


PK 


Packages 


PB 


PBIOMgr 


PR 


PrintMgr 


PD 


PrintDrvr 


QT 


QDTypes 


QD 


QuickDraw 


RM 


ResMgr 


SM 


ScrapMgr 


SD 


Serial 


SN 


Sound 


TU 


TBoxUtils 


TT 


TBTypes 


TE 


TextEdit 


WM 


WindowMgr 



The following cross reference list contains the identifiers from the 
Macintosh interface units. The two— letter code to the right of 
each identifier indicates which unit it is in. 

A5 MD AbortErr ME abs_nil MC 

AbbrevDate PK abortEvt EM activateEvt EM 

abbrLen PK abortMask EM activMask EM 
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AddPt 


QD 


BadBtSlpErr 


ME 


bothAxes 


WM 


AddReference 


RM 


BadCkSmErr 


ME 


botRight 


QT 


AddRefF ailed 


ME 


BadDBtSlp 


ME 


bottom 


QT 


AddResFailed 


ME 


BadDCkSum 


ME 


bounds 


QT 


AddResMenu 


MN 


BadMDBerr 


ME 


boundsRect 


DL 


AddResource 


RM 


BadUnitErr 


ME 


boundsRect 


DL 


aDefltein 


DL 


baseAddr 


QT 


BoutRefNum 


SD 


AinRefNum 


SD 


baud]200 


SD 


bPatScale 


PR 


alarm 


OU 


baudlSOO 


SD 


bPort 


PR 


Alert 


DL 


baudl9200 


SD 


BreakRecd 


ME 


AlertTemplate 


DL 


baud2400 


SD 


BringToFront 


WM 


AlertTHndl 


DL 


baudSOO 


SD 


bSpoolLoop 


PR 


AJertTFtr 


DL 


baudSeOO 


SD 


btnCtrl 


DL 


Allocate 


FL 


baud4800 


SD 


bUlOffset 


PR 


AllocPtr 


MM 


baud57600 


SD 


bUlShadow 


PR 


altDBoxProc 


WM 


baudeOO 


SD 


BUlThick 


PR 


amplitude 


SN 


baud7200 


SD 


bUserlLoop 


PR 


AngleFromSlop TU 


baud9600 


SD 


bUser2Loop 


PR 


AoutRefNum 


SD 


BdNamErr 


ME 


Button 


EM 


ApFile 


OU 


bDraftLoop 


PR 


bXInfoX 


PR 


applEvt 


EM 


BeginUpdate 


WM 


Byte 


MC 


applMask 


EM 


bFileVers 


PR 






app2Evt 


EM 


BinRefNum 


SD 


calcCRgns 


CM 


app2Mask 


EM 


BitClr 


TU 


CalcMenuSize 


MN 


app3Evt 


EM 


BitMap 


QT 


CalcVis 


WM 


appSMask 


EM 


BitMapPtr 


QT 


CalcVisBehind 


WM 


app4Evt 


EM 


Bitsl6 


QT 


Cancel 


DL 


app4Mask 


EM 


BitSet 


TU 


CantStepErr 


ME 


AppendMenu 


MN 


bitsProc 


QT 


CaretTime 


EM 


appleSymbol 


MN 


BitTst 


TU 


CautionAlert 


DL 


applFont 


FM 


bJDocLoop 


PR 


century 


PK 


ApplicZone 


MM 


bJobx 


PR 


ChangedResoui 


• RM 


arcProc 


QT 


bkColor 


QT 


Chars 


TE 


arrow 


MD 


BkLim 


MM 


CharsHandle 


TE 


ascent 


QT 


bkPat 


QT 


CharsPtr 


TE 


ascent 


FM 


black 


MD 


Char Width 


QD 


athens 


FM 


blackBit 


QD 


checkBoxProc 


CM 


autoKey 


EM 


blackColor 


QD 


Checkltem 


MN 


autoKeyMask 


EM 


BlockMove 


MM 


checkMark 


MN 


autoTrack 


CM 


blueBit 


QD 


CheckUpdate 


WM 






blueColor 


QD 


chkCtrl 


DL 


BackColor 


QD 


bold 


QT 


ClearMenuBar 


MN 


BackPat 


QD 


bold 


FM 


ClipAbove 


WM 
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ClipRect 


QD 


ControlRecord 


CM 


dataHandle 


TT 


clipRgn 


QT 


copy 


PK 


DataVerErr 


ME 


ClkRdErr 


ME 


CopyBits 


QD 


Date2Secs 


OU 


ClkWrErr 


ME 


copyCmd 


DS 


dateFmt 


PK 


CloseDeskAcc 


DS 


CopyRgn 


QD 


dateOrder 


PK 


CloseDialog 


DL 


CorErr 


ME 


dateSep 


PK 


CloseDriver 


FL 


CouldAJert 


DL 


DateTimeRec 


OU 


ClosePicture 


QD 


CouldDialog 


DL 


day 


OU 


ClosePoly 


QD 


count 


SN 


dayLeadingO 


PK 


ClosePort 


QD 


count 


SN 


dayLeadingZ 


PK 


CloseResFile 


RM 


CountAppFiles 


OU 


dayOfWeek 


OU 


CloseRgn 


QD 


CountMItems 


MN 


days 


PK 


ClosErr 


ME 


CountResources RM 


DBoxProc 


WM 


CloseWindow 


WM CountTypes 


RM 


decimalPt 


PK 


ClrAppFiles 


OU 


Create 


FL 


Delay 


OU 


CntEmpty 


MM 


CreateResFile 


RM 


DeleteMenu 


MN 


CntHandles 


MM 


crOnly 


TT 


DeltaPoint 


TU 


CntNRel 


MM 


CSCode 


OT 


denom 


FM 


CntRel 


MM 


CSParam 


OT 


Dequeue 


OU 


CntrlParam 


OT 


ctnlcon 


DL 


descent 


QT 


ColorBit 


QD 


ctrlltem 


DL 


descent 


FM 


colrBit 


QT 


CTSHold 


SD 


destRect 


TT 


commentProc 


QT 


cumErrs 


SD 


DetachResourc 


RM 


CompactMem 


MM 


CurResFile 


RM 


device 


QT 


condense 


QT 


currFmt 


PK 


device 


FM 


contRgn 


TT 


currLeadingZ 


PK 


dialogKind 


WM 


contrlAction 


CM 


currNegSym 


PK 


DialogPeek 


DL 


contrlData 


CM 


currSyml 


PK 


DialogPtr 


DL 


contrlDefProc 


CM 


currSym2 


PK 


DialogRecord 


DL 


contrlHilite 


CM 


currSymS 


PK 


DialogSelect 


DL 


contrlMax 


CM 


currSymTrail 


PK 


DialogTemplat 


DL 


contrlMin 


CM 


currTrailingZ 


PK 


DialogTHndl 


DL 


contrlOwner 


CM 


Cursor 


QT 


DialogTPtr 


DL 


contrlRect 


CM 


CursorPtr 


QT 


DIBadMount 


PK 


contrlRfCon 


CM 


cutCmd 


DS 


DiffRgn 


QD 


contrlTitle 


CM 


cyanBit 


QD 


DIFormat 


PK 


contrlVa.lue 


CM 


cyanColor 


QD 


DILoad 


PK 


contrlVis 


CM 






DInstErr 


ME 


Control 


FL 


data 


QT 


DirFulErr 


ME 


ControlErr 


ME 


dataS 


SD 


Disableltem 


MN 


ControlHandle 


CM 


data6 


SD 


diskEvt 


EM 


controlList 


TT 


data? 


SD 


diskMask 


EM 


ControlPtr 


CM 


dataS 


SD 


dispCntl 


CM 
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DisposDialog 


DL 


DSBadLaunch 


ME 


EqualString 


OU 


DisposeControl 


CM 


DSBusError 


ME 


Erase 


QD 


DisPoseMenu 


MN 


DSChkErr 


ME 


EraseArc 


QD 


DisposeRgn 


QD 


DSCoreErr 


ME 


EraseOval 


QD 


DisposeWindow WM DSFPErr 


ME 


ErasePoly 


QD 


DisposHandle 


MM 


DSFSErr 


ME 


EraseRect 


QD 


DisposPtr 


MM 


DSIlllnstErr 


ME 


EraseRgn 


QD 


DIUnload 


PK 


DSIOCoreErr 


ME 


EraseRoundRe( 


-QD 


DIVerify 


PK 


DSIrqErr 


ME 


errNum 


FM 


DIZero 


PK 


DskFulErr 


ME 


ErrorSound 


DL 


dkGray 


MD 


DSLineAErr 


ME 


errs 


SD 


DlgCopy 


DL 


DSLineFErr 


ME 


evenParity 


SD 


DlgCut 


DL 


DSLoadErr 


ME 


Event 


OT 


DlgDelete 


DL 


DSMemFulIErr 


ME 


EventAvail 


EM 


DlgPaste 


DL 


DSMiscErr 


ME 


EventRecord 


TT 


DMY 


PK 


DSNotThel 


ME 


everyevent 


EM 


DocumentProc 


WM DSOvFlowErr 


ME 


eveStr 


PK 


DoubleTime 


EM 


DSPrivErr 


ME 


EvQEl 


OT 


dQDrive 


OT 


DSRelnsert 


ME 


evQElem 


OT 


dQDrvSize 


OT 


DSStknHeap 


ME 


evQType 


OT 


DQFSID 


OT 


DSSysErr 


ME 


EvtRecPtr 


TT 


dQRefNum 


OT 


DSTracErr 


ME 


evts 


SD 


dragCntl 


CM 


DSZeroDivErr 


ME 


extend 


QT 


DragControI 


CM 


dummyType 


OT 


ExtFSErr 


ME 


DragGrayRgn 


WM 


DupFNErr 


ME 


extra 


FM 


DragWindow 


WM duration 


SN 






DrawChar 


QD 


duration 


SN 


face 


FM 


drawCntl 


CM 






family 


FM 


DrawControls 


CM 


editField 


DL 


FBsyErr 


ME 


DrawDialog 


DL 


editOpen 


DL 


fCTS 


SD 


DrawGrowIcon 


WM 


editText 


DL 


fdCreator 


OT 


DrawMenuBar 


MN 


Eject 


FL 


fdFlags 


OT 


DrawNew 


WM 


EmptyHandle 


MM 


fdFldr 


OT 


DrawPicture 


QD 


Empty Rect 


QD 


fdLocation 


OT 


DrawString 


QD 


EmptyRgn 


QD 


fdType 


OT 


DrawText 


QD 


enableFlags 


MN 


FeedCut 


PR 


DRemovErr 


ME 


Enableltem 


MN 


FeedFanFold 


PR 


driverEvt 


EM 


EndUpdate 


WM FeedMechCut 


PR 


driverMask 


EM 


Enqueue 


OU 


FeedOther 


PR 


DrvQEl 


OT 


EOFErr 


ME 


FFmode 


SN 


drvQElem 


OT 


EqualPt 


QD 


fFromUsr 


PR 


drvQType 


OT 


EqualRect 


QD 


FFSynthRec 


SN 


DSAddressErr 


ME 


EqualRgn 


QD 


fgColor 


QT 
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fiCreator 


FL 


FontlnPtr 


QT 


fiflags 


FL 


ForeColor 


QD 


fifldr 


FL 


'FOsType 


MC 


fih 


FL 


fPgDirty 


PR 


FileParam 


OT 


FPoint 


QT 


Fill 


QD 


Frame 


QD 


FillvVrc 


QD 


FrameArc 


QD 


FillOval 


QD 


FrameOval 


QD 


fillPat 


QT 


FramePoly 


QD 


FiilPoly 


QD 


FrameRect 


QD 


FillRect 


QD 


FrameRgn 


QD 


FiURgn 


QD 


FrameRoundRi 


sQD 


FillRoundRect 


QD 


franningErr 


SD 


fiLocation 


FL 


FreeAlert 


DL 


flm aging 


PR 


FreeDialog 


DL 


FindControl 


CM 


FreeMem 


MM 


finderlnfo 


FL 


freeWave 


SN 


FindWindow 


WM FrMacBool 


MC 


Finfo 


OT 


FrontWindow 


WM 


flnX 


SD 


FrSmall 


MC 


firstBL 


TT 


FSClose 


FL 


fiType 


FL 


FSDelete 


FL 


fiv 


FL 


FSDSErr 


ME 


Fixed 


TU 


FSOpen 


FL 


FixMul 


TU 


fsQType 


OT 


FixRatio 


TU 


FSRead 


FL 


FixRound 


TU 


FSWrite 


FL 


Flags 


MM 


FTmode 


SN 


FlashMenuBar 


MN 


FTSoundRec 


SN 


FLckdErr 


ME 


FTSynthRec 


SN 


FlushEvents 


EM 


ftype 


PK 


FlushVol 


FL 


ftype 


OU 


FMnPtr 


FM 


fversion 


OU 


FMInput 


FM 


fvrefnum 


OU 


FMOutPtr 


FM 


fXon 


SD 


FMOutput 


FM 






fname 


PK 


geneva 


FM 


fname 


OU 


GetAlrtStage 


DL 


FNFErr 


ME 


GetAppFiles 


OU 


FNOpnErr 


ME 


GetAppParms 


TU 


font 


OU 


getCancel 


PK 


fontHandle 


FM 


GetClip 


QD 


Fontlnfo 


QT 


GetCRefCon 


CM 
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GetCTitle CM 

GetCtlAction CM 

GetCtlMax CM 

GetCtlMin CM 

GetCtlValue CM 

GetCursor TU 

GetDItem DL 

getDlgId PK 

getDrive PK 

GetDrvQHdr PB 

getEject PK 

GetEOF FL 

GetFInfo FL 

GetFNum FM 

GetFontlnfo QD 

GetFontName FM 

GetFPos FL 

GetFSQHdr PB 

GetHandleSize MM 

Getlcon TU 

GetlndResourc RM 

GetlndString OU 

GetlndTypes RM 

Getltem MN 

Getltemlcon MN 

GetltemMark MN 

GetltemStyle MN 

GetlText DL 

GetKeys EM 

GetMenu MN 

GetMenuBar MN 

GetMHandle MN 

GetMouse EM 
GetNamedResouRM 

GetNewControl CM 

GetNewDialog DL 

GetNewMBar MN 

GetNewWindo WM 

GetNextEvent EM 

getNmLst PK 

getOpen PK 

GetOsEvent EM 

GetPattern TU 



A-7 



MACINTOSH INTERFACE 




Appe 


ndix A 


GetPen 


QD 


GZSaveHnd 


MM 


iDevBytes 


PR 


GetPenState 


QD 






IFileVol 


PR 


getPicProc 


QT 


h 


QT 


iFMgrCtl 


PD 


GetPicture 


TU 


HandAndHand 


OU 


iFstPage 


PR 


GetPixel 


QD 


Handle 


MC 


iHRes 


PR 


GetPort 


QD 


HandleZone 


MM 


iLstPage 


PR 


GetPtrSize 


MM 


HandToHand 


OU 


inButton 


CM 


GetResAttrs 


RM 


hAxsOnly 


WM 


inCheckBox 


CM 


GetResFileAtt 


RM 


hAxisOnly 


CM 


inContent 


WM 


GetResInfo 


RM 


H'eapData 


MM 


inDesk 


WM 


GetResource 


RM 


HFstFree 


MM 


inDownButton 


CM 


GetScrap 


SM 


HideControl 


CM 


inDrag 


WM 


getScrol] 


PK 


HideCursor 


QD 


InfoScrap 


SM 


GetSoundVol 


SN 


HidePen 


QD 


in Go Aw ay 


WM 


GetString 


TU 


HideWindow 


WM 


inGrow 


WM 


GetSysPPtr 


OU 


HiliteControl 


CM 


initCntl 


CM 


GetTime 


OU 


hilited 


TT 


InitCursor 


QD 


GetTrapAddres 


! OU 


HiliteMenu 


MN 


InitlWMerr 


ME 


GetVCBQHdr 


PB 


Hilite Window 


WM InitMenus 


MN 


Get\anfo 


FL 


hiLong 


TU 


InitPort 


QD 


GetVol 


FL 


HiWord 


TU 


InitQueue 


PB 


Get.WlndowPic 


WM HLock 


M^.1 


InitUti! 


OU 


GetWMgrPort 


WM 


HNoPurge 


MM 


InitZone 


MM 


GetWRefCon 


WM HomeResFile 


RM 


inMenuBar 


WM 


GetWTitle 


WM 


hotSpot 


QT 


inPageDown 


CM 


GetZone 


MM 


hour 


OU 


inPageUp 


CM 


GFPErr 


ME 


hPic 


PR 


inPort 


TT 


GlobalToLocal 


QD 


hPrint 


PR 


InsertMenu 


MN 


goAwayFlag 


TT 


HPurge 


MM 


InsertResMenu 


MN 


goAwayFlag 


DL 


hrLeadingZ 


PK 


InsetRect 


QD 


good 


PK 


hText 


TT 


InsetRgn 


QD 


gport 


PR 


HUnlock 


MM 


inSysWindow 


WM 


gProcs 


PR 


hwOverrunErr 


SD 


Int64Bit 


TU 


GrafDevice 


QD 






IntegerPtr 


MC 


GrafPort 


QT 


iBandH 


PR 


inThumb 


CM 


grafProcs 


QT 


iBands 


PR 


intlOHndl 


PK 


GrafPtr 


QT 


iBandV 


PR 


intlOPtr 


PK 


gray 


MD 


iconltem 


DL 


intlORec 


PK 


greenBit 


QD 


iCopies 


PR 


intlOVers 


PK 


greenColor 


QD 


iCurBand 


PR 


intUHndl 


PK 


GrowWindow 


WM 


iCurCopy 


PR 


intUPtr 


PK 


GZCritical 


MM 


iCurPage 


PR 


intURec 


PK 


GZProc 


MM 


iDev 


PR 


in tU Vers 


PK 
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inUpButton 


CM 


InvalRect 


WM 


InvalRgn 


WM 


inverseBit 


QD 


Invert 


QD 


InvertArc 


QD 


InvertOval 


QD 


InvertPoly 


QD 


InvertRect 


QD 


InvertRgn 


QD 


InvertRoundRe 


QD 


ioActCount 


OT 


ioAlBlSt 


OT 


ioBuffer 


OT 


ioCmdAddr 


OT 


ioCompletion 


OT 


lOErr 


ME 


ioFDirlndex 


OT 


ioFlAttrib 


OT 


ioFlCrDat 


OT 


ioFlFndrlnfo 


OT 


ioFlLgLen 


OT 


ioFlMdDat 


OT 


ioFlNum 


OT 


ioFlPyLen 


OT 


ioFlRLgLen 


OT 


ioFlRPyLen 


OT 


ioFlRStBlk 


OT 


ioFlStBlk 


OT 


ioFlVersNum 


OT 


ioFRefNum 


OT 


ioFVersNum 


OT 


ioMisc 


OT 


ioNamePtr 


OT 


ioPermssn 


OT 


ioPosMode 


OT 


ioPosOffset 


OT 


ioQElem 


OT 


ioQType 


OT 


ioRefNum 


OT 


ioReqCount 


OT 


ioResult 


OT 


ioTrap 


OT 
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oVAlBlkSiz OT 

oVAtrb OT 

oVblLn OT 

oVClpSiz OT 

oVCrDate OT 

oVDirSt OT 

oVersNum OT 

o\TrBlk OT 

oVLsBkUp OT 

oVNmAlBlks OT 

oVNmFls OT 

oVNxtFNum OT 

oVollndex OT 

oVRefNum OT 

PageH PR 

PageV PR 

PrBitsCtl PD 

PrDevCtl PD 

PrEvtCtl PD 

PrlOCtl PD 

PrVersion PR 

RowBytes PR 

IsDialogEvent DL 

talic QT 

talic FM 

temDisable DL 

terns DL 

temsID DL 

temsID DL 

TotBands PR 

TotCopies PR 

TotPages PR 

lUDatePString PK 

lUDateString PK 

lUGetlntl PK 

lUMaglDString PK 

lUMagString PK 

lUMetric PK 

lUSetlntl PK 

lUTimePString PK 

lUTimeString PK 

iVRes PR 



just 



TT 



kbdPrint OU 

keyDown EM 

keyDownMask EM 

KeyMap EM 

KeyMapPtr EM 

keyUp EM 

keyUpMask EM 

KillControls CM 

KilllO FL 

KillPicture QD 

KillPoly QD 

leading QT 

leading FM 

left QT 

length TT 

Line QD 

lineHeight TT 

lineProc QT 

lineStarts TT 

LineTo QD 

listSep PK 

LoadResource RM 

LoadScrap SM 

localrtn PK 
LocalToGlobal QD 

loLong TU 

london FM 

LongDate PK 

Longint MC 

LonglntPtr MC 

LongMul TU 

LoWord TU 

IPaintBits PD 

IPrEvtAll PD 

IPrEvtTop PD 

IPrLineFeed PD 

IPrPageEnd PD 

IPrReset PD 

IScreenBits PD 

ItGray MD 
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minLeadingZ 


PK 


noConstraint 


CM 


MacBool 


MC 


minute 


OU 


NoDriveErr 


ME 


MacBoolPtr 


MC 


misc 


OU 


NoDtaMkErr 


ME 


MacPtr 


MC 


mntLeadingZ 


PK 


NoErr 


ME 


mac_ false 


MC 


ModalDialog 


DL 


noGrowDocPro 


WM 


mac _ true 


MC 


mode 


SN 


NoMacDskErr 


ME 


magentaBit 


QD 


mode 


SN 


noMark 


MN 


magentaColor 


QD 


mode 


SN 


NoNybErr 


ME 


MapPoly 


QD 


modifiers 


TT 


noParity 


SD 


MapPt 


QD 


monaco 


FM 


normalBit 


QD 


MapRect 


QD 


month 


OU 


noScrapErr 


ME 


MapRgn 


QD 


months 


PK 


NoteAlert 


DL 


mask 


QT 


MoreMast 


MM 


notelcon 


DL 


MaxMem 


MM 


MoreMasters 


MM 


NotOpenErr 


ME 


MaxNRel 


MM 


mornStr 


PK 


notPatBic 


QD 


MaxRel 


MM 


mouseDown 


EM 


notPatCopy 


QD 


mChooseMsg 


MN 


mouseUp 


EM 


notPatOr 


QD 


mDownMask 


EM 


Move 


QD 


notPatXor 


QD 


mDrawMsg 


MN 


MoveControI 


CM 


notSrcBic 


QD 


MDY 


PK 


MovePortTo 


QD 


notSrcCopy 


QD 


memAdrErr 


ME 


MoveTo 


QD 


notSrcOr 


QD 


memAZErr 


ME 


MoveWindow 


WM 


notSrcXor 


QD 


memBCErr 


ME 


mSizeMsg 


MN 


noTypeErr 


ME 


MemError 


MM 


Munger 


TU 


NSDrvErr 


ME 


MemFullErr 


ME 


mUpMask 


EM 


NsVErr 


ME 


memPCErr 


ME 






null 


SD 


memPurErr 


ME 


needbits 


FM 


nulIEvent 


EM 


memSCErr 


ME 


networkEvt 


EM 


nullMask 


EM 


memWZErr 


ME 


networkMask 


EM 


numer 


FM 


menuData 


MN 


NewControl 


CM 






MenuHandle 


MN 


NewDialog 


DL 


ObscureCursor 


QD 


menuHeight 


MN 


NewHandle 


MM 


oddParity 


SD 


menuID 


MN 


NewMenu 


MN 


OffLinErr 


ME 


Menulnfo 


MN 


NewPtr 


MM 


OffsetPoly 


QD 


MenuKey 


MN 


NewRgn 


QD 


OffsetRect 


QD 


menuProc 


MN 


NewString 


TU 


OffsetRgn 


QD 


MenuPtr 


MN 


NewWindow 


WM OK 


DL 


MenuSelect 


MN 


newYork 


FM 


OpenDeskAcc 


DS 


memiWidth 


MN 


nextControl 


CM 


OpenDriver 


FL 


message 


TT 


next Window 


TT 


OpenErr 


ME 


metricSys 


PK 


NilHandleErr 


ME 


OpenPicture 


QD 


MFulErr 


ME 


nLines 


TT 


OpenPoly 


QD 


MinCBFree 


MM 


NoAdrMkErr 


ME 


OpenPort 


QD 
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OpenResFile 


RM 


PBGetFInfo 


PB 


pnLoc 


QT 


OpenRgn 


QD 


PBGetFPos 


PB 


pnMode 


QT 


OpWrErr 


ME 


PBGetVInfo 


PB 


pnMode 


QT 


OsErr 


MC 


PBGetVol 


PB 


pnPat 


QT 


OsEventAvail 


EM 


PBKilllO 


PB 


pnPat 


QT 


OsType 


MC 


PBMountVol 


PB 


pnSize 


QT 


OsTypePtr 


MC 


PBOffLine 


PB 


pnSize 


QT 


outline 


QT 


PBOpen 


PB 


pnVis 


QT 


ovalProc 


QT 


PBOpenRF 


PB 


Point 


QT 






PBRead 


PB 


PointPtr 


QT 


Paint 


QD 


PBRename 


PB 


polyBBox 


QT 


PaintArc 


QD 


PBRstFLock 


PB 


Polygon 


QT 


PaintBehind 


WM PBSetEof 


PB 


polyPoints 


QT 


PaintOne 


WM PBSetFInfo 


PB 


polyProc 


QT 


PaintOval 


QD 


PBSetFLock 


PB 


polySave 


QT 


PaintPoly 


QD 


PBSetFPos 


PB 


polySize 


QT 


PaintRect 


QD 


PBSetFVers 


PB 


port 


TT 


PaintRgn 


QD 


PBSetVol 


PB 


portA 


OU 


PaintRoundRec QD 


PBStatus 


PB 


portB 


OU 


Param 


OT 


PBUnmountVol PB 


portBits 


QT 


ParamBlkType 


: OT 


PBWrite 


PB 


portRect 


QT 


ParamBlockRec OT 


PenMode 


QD 


PortSize 


QD 


ParamErr 


ME 


PenNormal 


QD 


posCntl 


CM 


ParamText 


DL 


PenPat 


QD 


PosErr 


ME 


parityErr 


SD 


PenSize 


QD 


PostEvent 


EM 


ParmBlkPtr 


OT 


PenState 


QT 


pPrPort 


PR 


pasteCmd 


DS 


PenStPtr 


QT 


pPrPort 


PR 


patBic 


QD 


PermErr 


ME 


PrClose 


PR 


patCopy 


QD 


pFileName 


PR 


PrCloseDoc 


PR 


patOr 


QD 


pGPort 


PR 


PrClosePage 


PR 


patStretch 


QT 


PicComment 


QD 


PrCtlCall 


PD 


Pattern 


QT 


picFrame 


QT 


PrDrvrClose 


PD 


PatternPtr 


QT 


picltem 


DL 


PrDrvrDce 


PD 


patXor 


QD 


picLParen 


QD 


PrDrvrOpen 


PD 


PBAllocate 


PB 


picRParen 


QD 


PrDrvrVers 


PD 


PBClose 


PB 


picSave 


QT 


PrError 


PR 


PBControl 


PB 


picSize 


QT 


prlnfo 


PR 


PBCreate 


PB 


Picture 


QT 


prInfoPt 


PR 


PBDelete 


PB 


pIdleProc 


PR 


PRInitErr 


ME 


PBEject 


PB 


PinRect 


WM PrintDefault 


PR 


PBFlshFile 


PB 


plainDBox 


WM 


printx 


PR 


PBFlshVol 


PB 


Plotlcon 


TU 


prJob 


PR 


PBGetEof 


PB 


pnLoc 


QT 


PrJobDialog 


PR 
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PrJobMerge 


PR 




PrNoPurge 


PD 


QDProcs 


procID 


DL 


QDProcsPtr 


ProcPtr 


MC 


QElem 


PrOpen 


PR 


QElemPtr 


PrOpenDoc 


PR 


QErr 


PrOpenPage 


PR 


QFlags 


PrPicFile 


PR 


QHdr 


PrPiirge 


PD 


QHdrPtr 


PrSetError 


PR 


.QHead 


prStl 


PR 


qLink 


PrStlDialog 


PR 


QTail 


PrValidate 


PR 


qType 


PRWrErr 


ME 


QTypes 


prXInfo 


PR 




PScrapStuff 


SM 


radCtrl 


Pt2Rect 


QD 


radioButProc 


PtInRect 


QD 


Random 


PtInRgn 


QD 


randSeed 


PtrAjidHand 


OU 


RcvrErr 


PtrFFSynthRec SN 


RDIBadMount 


PtrFTSndRec 


SN 


RDIFormat 


PtrFTSynth 


SN 


RDILoad 


PtrInt64Bit 


TU 


RDIUnload 


PtrSFReply 


PK 


RDIVerify 


PtrSFTypeList 


PK 


RDIZero 


PtrSWSynth 


SN 


RDocProc 


PtrToHand 


OU 


rdPend 


PtrToXHand 


OU 


ReadDateTime 


PtrZone 


MM 


ReadErr 


PtToAngle 


QD 


RealFonf 


PurgeMem 


MM 


RealiocHandle 


PurgeProc 


MM 


RecoverHandle 


PurgePtr 


MM 


Rect 


pushButProc 


CM 


RectlnRgn 


putGancel 


PK 


rectProc 


putDlgID 


PK 


RectPtr 


putDrive 


PK 


RectRgn 


putEject 


PK 


redBit 


putName 


PK 


redColor 


putPicProc 


QT 


refCon 


putSave 


PK 


refCon 


PutScrap 


SM 


Region 



ReleaseResour RM 

QT Rename FL 

QT resChanged RM 

OT resCtrl DL 

OT ResError RM 

IvdE ResetAlrtStag DL 

OT ResFNotFound ME 

OT resLocked RM 

OT ResNotFound ME 

OT resPreload RM 

OT resProtected RM 

OT resPurgeable RM 

OT ResrvMem MM 

OT resSysHeap RM 

resSysRef RM 

DL resUser RM 

CM RFNumErr ME 

QD rgnBBox QT 

MD rgnProc QT 

ME rgnSave QT 

PK rgnSize QT 

PK right QT 

PK RIUDatePStrin PK 

PK RIUDateString PK 

PK RIUGetlntl PK 

PK RIUMaglDStrin PK 

WM RIUMagString PK 

SD RIUMetric PK 

OU RlUSetlntl PK 

ME RIUTimePStrin PK 

FM RIUTimeString PK 

MM RmveReference RM 

Mlvl RmveResource RM 

QT RmvRefFailed ME 

QD RmvResFailed ME 

QT rowBytes QT 

QT rPage PR 

QD rPaper PR 

QD rRectProc QT 

QD RSFGetFile PK 

TT RSFPGetFile PK 

DL RSFPPutFile PK 

QT RSFPutFile PK 
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RstFLock 


FL 


SetCtlMax 


CM 


SetWRefCon 


WM 






SetCtlMin 


CM 


SetWTitle 


WM 


sanFran 


FM 


SetCtlValue 


CM 


SetZone 


MM 


SaveOld 


WM 


SetCursor 


QD 


SFGetFile 


PK 


ScalePt 


QD 


SetDAFont 


DL 


SFPGetFile 


PK 


ScanBT 


PR 


SetDateTime 


OU 


SFPPutFile 


PK 


ScanLR 


PR 


SetDItem 


DL 


SFPutFile 


PK 


ScanRL 


PR 


SetEmptyRgn 


QD 


SFReply 


PK 


ScanTB 


PR 


SetEOF 


FL 


SFTypeList 


PK 


scrapCount 


SM 


SetEventMask 


EM 


shadow 


QT 


scrapHandle 


SM 


SetFInfo 


FL 


shadow 


FM 


scrapName 


SM 


SetFLock 


FL 


ShieldCursor 


TU 


scrapSize 


SM 


SetFontLock 


FM 


ShortDate 


PK 


scrapState 


SM 


SetFPos 


FL 


ShowControl 


CM 


ScrapStuff 


SM 


SetGrowZone 


MM 


ShowCursor 


QD 


screenbits 


MD 


SetHandleSize 


MM 


ShowHide 


WM 


scrollBarProc 


CM 


SetlteiB 


MN 


ShowPen 


QD 


ScrollRect 


QD 


Setltemlcon 


MN 


ShowWindow 


WM 


secLeadingZ 


PK 


SetltemMark 


MN 


shrtDateFmt 


PK 


second 


OU 


SetltemStyle 


MN 


Size 


MM 


Secs2Date 


OU 


SetlText 


DL 


size 


FM 


SectNFErr 


ME 


SetMenuBar 


MN 


SizeControl 


CM 


SectRect 


QD 


SetMenuFlash 


MN 


SizeResource 


RM 


SectRgn 


QD 


SetOrigin 


QD 


SizeWindow 


WM 


SeekErr 


ME 


SetPenState 


QD 


SlopeFromAngl 


I TU 


SelectWindow 


WM 


SetPort 


QD 


SmallBool 


MC 


selEnd 


TT 


SetPortBits 


QD 


sndRec 


SN 


SellText 


DL 


SetPt 


QD 


soundlPhase 


SN 


selStart 


TT 


SetPtrSize 


MM 


soundlRate 


SN 


SendBehind 


WM 


SetRect 


QD 


soundlWave 


SN 


SerClrBrk 


SD 


SetRectRgn 


QD 


sound2Phase 


SN 


SerGetBuf 


SD 


SetResAttrs 


RM 


sound2Rate 


SN 


SerHShake 


SD 


SetResFileAttrs 


;RM 


sound2Wave 


SN 


SerReset 


SD 


SetResInfo 


RM 


soundSPhase 


SN 


SerSetBrk 


SD 


SetResLoad 


RM 


soundSRate 


SN 


SerSetBuf 


SD 


SetResPurge 


RM 


soundSWave 


SN 


SerShk 


SD 


SetSoundVol 


SN 


sound4Phase 


SN 


SerStaRec 


SD 


SetStdProcs 


QD 


sound4Rate 


SN 


SerStatus 


SD 


SetString 


TU 


sound4Wave 


SN 


SetCIip 


QD 


SetTime 


OU 


SoundDone 


SN 


SetCRefCon 


CM 


SetTrapAddress OU 


SpaceExtra 


QD 


SetCTitle 


CM 


SetVol 


FL 


spareFlag 


TT 


SetCtlAction 


CM 


SetWindowPic 


WM 


SparePtr 


MM 
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SpdAdjErr 


ME 


Style 


QT 


TESetSelect 


TE 


spExtra 


QT 


Styleltem 


QT 


TESetText 


TE 


srcBic 


QD 


SubPt 


QD 


testCntl 


CM 


srcCopy 


QD 


supressDate 


PK 


TestControl 


CM. 


srcOr 


QD 


SwapFont 


FM 


TEUpdate 


TE 


srcXor 


QD 


SWmode 


SN 


TextBox 


TE 


stO 


PK 


swOverrunErr 


SD 


TextFace 


QD 


St] 


PK 


SWSynthRec 


SN 


TextFont 


QD 


st2 


PK 


SysBeep 


ou 


textH 


DL 


st3 


PK 


SysParmType 


ou 


textMenuProc 


MN 


st4 


PK 


SysPPtr 


ou 


TextMode 


QD 


StageList 


DL 


SystemClick 


DS 


textProc 


QT 


stages 


DL 


SystemEdit 


DS 


TextSize 


QD 


StartSound 


SN 


SystemEvent 


DS 


TextWidth 


QD 


statText 


DL 


systemFont 


FM 


TFeed 


PR 


Status 


PL 


SystemMenu 


DS 


thePort 


MD 


StatusErr 


ME 


SystemTask 


DS 


thousSep 


PK 


StdAjc 


QD 


SystemZone 


MM 


THPrint 


PR 


StdBits 


QD 






thumbCntl 


CM 


StdComment 


QD 


TEActivate 


TE 


THz 


MM 


StdGetPic 


QD 


TECalText 


TE 


TickCount 


EM 


StdLine 


QD 


TEClick 


TE 


timelSuff 


PK 


StdOval 


QD 


TECopy 


TE 


time2Suff 


PK 


StdPoly 


QD 


TECut 


TE 


timeSSuff 


PK 


StdPutPic 


QD 


TEDeactivate 


TE 


tiine4Suff 


PK 


StdRect 


QD 


TEDelete 


TE 


timeSSuff 


PK 


StdRgn 


QD 


TEDisPose 


TE 


time6Suff 


PK 


StdRRect 


QD 


TEGetText 


TE 


time7Suff 


PK 


StdText 


QD 


TEHandle 


TT 


timeSSuff 


PK 


StdTxMeas 


QD 


TEIdle 


TE 


timeCycle 


PK 


StillDown 


EM 


TEInsert 


TE 


timeFmt 


P'K 


stoplO 


SD 


teJustCenter 


TE 


timeSep 


PK 


stoplS 


SD 


teJustLeft 


TE 


title 


DL 


stoiJ20 


SD 


teJustRight 


TE 


titleHandle 


TT 


StopAJert 


DL 


TEKey 


TE 


titleWidth 


TT 


stop>Icon 


DL 


TENew 


TE 


TkOBadErr 


ME 


StopSound 


SN 


TEPaste 


TE 


TMFOErr 


ME 


Str255 


MC 


TEPtr 


TT 


ToMacBool 


MC 


StringHaiidle 


MC 


TERec 


TT 


Tone 


SN 


StringPtr 


MC 


TEScrapHandli 


sOU 


Tones 


SN 


StringWidth 


QD 


TEScrapLen 


OU 


top 


QT 


strucRgn 


TT 


TEScroll 


TE 


topLeft 


QT 


StuffHex 


QD 


TESetJust 


TE 


TopMem 


MM 
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toronto 


FM 


updateRgn 


TT 


vcbVRefNum 


OT 


ToSmall 


MC 


UprString 


OU 


Venice 


FM 


TPPort 


PR 


UseResFile 


RM 


verBritain 


PK 


TPPrint 


PR 


userltem 


DL 


verFrance 


PK 


TPPrPort 


PR 


userKind 


WM 


verGermany 


PK 


TPrlnfo 


PR 


useWFont 


CM 


verltaly 


PK 


TPrint 


PR 






version 


PK 


TPrJob 


PR 


V 


QT 


verUS 


PK 


TPrPort 


PR 


valid 


OU 


vh 


QT 


TPrStatus 


PR 


ValidRect 


WM VHSelect 


QT 


TPrStl 


PR 


ValidRgn 


WM 


viewRect 


TT 


TPrXInfo 


PR 


vAxsOnly 


WM 


visible 


TT 


TrackControl 


CM 


vAxisOnly 


CM 


visible 


DL 


TrackGoAway 


WM 


vblAddr 


QT 


visRgn 


QT 


triplets 


SN 


vblCount 


OT 


VLckdErr 


ME 


TScan 


PR 


vblPhase 


OT 


volClick 


OU 


TwoSideErr 


ME 


vblQElem 


OT 


VolOffLinErr 


ME 


txFace 


TT 


VBLTask 


OT 


VolOnLinErr 


ME 


txFace 


QT 


VCB 


OT 


VolumeParam 


OT 


txFont 


TT 


vcbAlBlkSiz 


OT 


vRefNum 


PK 


txFont 


QT 


vcbAIBlSt 


OT 


vType 


OT 


txMeasProc 


QT 


vcbAtrb 


OT 


VTypErr 


ME 


txMode 


TT 


vcbBlLn 


OT 






txMode 


QT 


vcbBufAdr 


OT 


WaitMouseUp 


EM 


txSize 


TT 


vcbClpSiz 


OT 


Wave 


SN 


txSize 


QT 


vcbCrDate 


OT 


waveBytes 


SN 






vcbDirBlk 


OT 


WavePtr 


SN 


ulOffset 


FM 


vcbDirlndex 


OT 


wCalcRgns 


WM 


ulShadow 


FM 


vcbDirSt 


OT 


wDev 


PR 


ulThick 


FM 


vcbDRefNum 


OT 


wDispose 


WM 


underline 


QT 


vcbDrvNum 


OT 


wDraw 


WM 


undoCmd 


DS 


vcbFlags 


OT 


wDrawGIcon 


WM 


UnimpErr 


ME 


vcbFreeBks 


OT 


wGrow 


WM 


UnionRect 


QD 


vcbFSID 


OT 


what 


TT 


UnionRgn 


QD 


vcbLsBkUp 


OT 


when 


TT 


Uniqueld 


RM 


vcbMAdr 


OT 


where 


TT 


UnitEmptyErr 


ME 


vcbMLen 


OT 


wHit 


WM 


UnloadScrap 


SM 


vcbNmBlks 


OT 


white 


MD 


UnMountVol 


FL 


vcbNmFls 


OT 


whiteColor 


QD 


unused 


FM 


vcbNxtFNum 


OT 


widMax 


QT 


updateEvt 


EM 


vcbQElem 


OT 


widmax 


FM 


updateMask 


EM 


vcbSigWord 


OT 


wInContent 


WM 


UpdateResFile 


RM 


vcbVN 


OT 


window 


DL 


1200301:0AB 










A-1 



MACINTOSH INTERFACE Appendix A 



windowDefProc TT 
WindowHandle TT 
windowKind TT 
windowPic TT 

WindowPtr TT 

WindowRecord TT 



wlnDrag 


WM 


■wlnGoAway 


WM 


■win Grow 


WM 


wNew 


WM 


wNoHit 


WM 


WPrErr 


ME 


WriteParam 


OU 


WrJteResource 


RM 


WritErr 


ME 


wrPend 


SD 


WrPermErr 


ME 


WrUnderRun 


ME 


xoff 


SD 


XOFFHold 


SD 


XOFFSent 


SD 


xOfm^asSent 


SD 


xon 


SD 


XorRgn 


QD 


year 


OU 


yellowBit 


QD 


yellowColor 


QD 


YMD 


PK 


ZCBFree 


MM 


ZeroScrap 


SM 


Zone 


MM 
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A.3. Control Manager (ControlMgr) 



unit Control Mgr 



i nt 

1$L 
use 



f ace 
Moccore, OdTypes, TBTypes 



l$Lt 



|$U MACCORE.CODEf MocCore . 

\%[J ODTYPES.CODEf OOTypes (GrofPort, GrofPtr. Point. 

FPoint. Rect. RectPtr), 
|$U TBTYPES. CODEl TBTypes (EvtRecPtr, EventRecord. 

w i ndowp t r , w i ndowhand I e ) ; 



\ Con t ro 1 De f 


i n 


t i on Ids 


pushBu tP roc 


= 






chec kBoxP roc 


xs 






rodi oBu tProc 


= 






useWFont 


= 






sc r 1 1 Bo rP roc 


= 






\ Port Codes 


\ 




i nBu t ton 




10 




i nCheckBox 


s: 


1 1 




i nUpBu t ton 


= 


20 




i nOownBu t ton 


= 


21 




i nPogeUp 


= 


22 




i nPogeDown 


S 


23 




i nThumb 


»= 


12< 


? 





s imp I e bu t ton I 

chec k box I 

radio button ] 

odd to above window's font \ 

scroll bar I 



s imp I e button I 
check box or radio button I 
up arrow of o scrol I bor I 
down arrow of a scrol I bar I 



thumb of a scrol I bar I 



Axis constroints for DragControl 



noCons t r a i n t = 
hAx i sOn I y =1 
vAx i sOn I y =2 



no constraint l 

hor i 2on tol axis only I 

vertical axis only I 



\ Messages to control definition function \ 



d rawCn t I 
testCnt I 
CO I cCRgns 
i ni tCnt I 
d i spCn t I 
posCn t I 
thumbCn t I 
d r ogCn t I 
au toT rac k 



= 1 

= 2 

» 3 

«= 4 

= 5 

- 6 

«= 7 



Type 



Con t ro I Hand I e 
Con t ro I Pt r 



draw the control (or control port) I 
test where mouse button was pressed I 
calculate control's region (or indicator's) 
do any odditionol control initialization ] 
take any additional disposal actions I 
reposition control's indicator ic update it | 
calculate parameters for dragging indicatory 
drag control (or its indicator) { 
execute control's action procedure I 



MocPt r 
MocPt r 



Cont rolRecord = PACKED RECORD 



ne X tCon t ro I : 
con t r t Owne r : 
con t r I Rec t : 
con t r I H i I i te : 
con t r I V i s : 
con t r I Vo I ue : 
con t r I M i n : 
con t r I Max : 
contr IDefProc: 
con t r 1 Do to : 
contr lAct ion: 
cont r I R f Con : 
con t r I T i t I e : 
End ; 



Con t r o I Hand I e 
MocPtr ; 
Rect ; 
Sma I I Boo I ; 
Sma I I Boo I ; 
i n t ege r 
i n t ege r 
integer 
Handle ; 
Handle ; 
ProcP t r 
Long I n t 
str255 ; 



nex t con t ro 1 I 

Pointer to control's window 

enclosing rectangle I 

high lite state I 

TRUE if visible ^ 

current setting 

mini mum setting 

max i mum setting 

control definition function 

data used by con t r I De f P roc I 

default action procedure I 

control's reference value I 

control's Title I 



I Initialization And Allocation 
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FUNCTION NewControl 



( t heW i ndow : 
boundsRec t : 
title: 
visible: 
vo 1 ue : 
m i n , ma x : 
pr oc I D : 
r e f Con : 

: Con t r o I Hand 1 e ; 



FUNCTION Ge tNewCon t ro I ( conlroMD: 

theWi ndow : 
: ControiHondle ; 

PROCEDURE D i sposeCont ro I ( theControl 
PROCEDURE KillControls ( theWindow: 



J Con t r o I Display 

PROCEDURE SetCTi t le 

PROCEDURE GetCT i t le 

PROCEDURE HideContro 

='ROCEDURE ShowContro 

='ROCEDURE DrowControls ( 

PROCEDURE Hi I i teCont rot ( 



W i ndowP t r ; 

RectPtr ; 

St r i ngPt r ; 

MocBoo t ; 

i n t ege r ; 

i n t ege r ; 

i n t ege r ; 

Long I n t ) 

ex ternol (-22188) : |A954| 

integer ; 

WindowPtr ) 

ex ternol (-22082) ; |A9BE^ 

Control Hand I e ) ; 

ex ternol (-22187) ; |A955| 

WindowPtr ) ; 

ex ternol (-22186) ; lA956| 

__ 1 





t heCon t ro 1 




t i tie: 




theCont ro 1 




title: 




theCon t ro 1 




t heCon t ro 1 




theWi ndow: 



theCon t ro I : 
hi M testate: 



Con t r o I Hand I e ; 

St r i ngPt r ) ; 

external (-22177) ; JA95F^ 

Con t r o I Hand I e ; 

St r i ngPt r ) ; 

ex ternol (-22178) ; lA95E^ 

ControiHondle ) ; 
external (-22184) ; |A958| 

Cont ro i Hand le ) ; 
external (-22185) ; lA957| 

WindowPtr ) ; 

externa! (-22167) ; lA969| 

Con t ro I Hand 1 e ; 

integer ) ; 

ex ternol (-22179) ; |A95D| 



[ Mouse Loco t i on 

"UNCTION TestControl ( 

•UNCTION FindControl ( 
■UNCTION TrackControl ( 



t heCon t ro I : 
thePoi n t : 
i n t eger ; 

thePo i n t : 
theWi ndow: 
wh i chCon t r o I : 



I n t ege r ; 

theCont ro I : 
star tPt : 
octionProc: 
i n t eger ; 



Con t r o i Hand I e ; 

FPoint ) 

external (-22170) : JA966| 

FPoint ; 

WindowPtr ; 

MocPtr ) 

ex ternol (-22164) ; |A96C| 

Con t ro 1 Hand 1 e ; 

FPoint ; 

ProcPtr ) 

ex ternol (-22168) ; JA968| 



Control Movement ond Sizing 



'ROCEOURE MoveContro! 



'ROCEDURE DragControl ( 



t heCon t r o 1 : 
h , V : 



t heCon t r o I : 
star tPt : 
I imi tRec t : 
s ! opRec t : 
axis: 



Con t r o I Hand I e ; 

i n tege r ) ; 

ex ternol (-22183) ; |A959| 

Con t ro ! Hand ! e ; 

FPoint ; 

RectPtr ; 

RectPtr ; 

i n tege r ) ; 

externol (-22169) ; |A967| 
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PROCEDURE Si zeCont rol ( 

\ Control Setting and Range 
PROCEDURE SetCt I Vol ue ( 



theControl: ControlHandle ; 
w , h : in t ege r ) ; 

ex terna I (-22180) ; JA95C| 



t heCon t ro I : 
t heVa I ue : 



FUNCTION GetCtlValue ( theControl: 

integer ; 



PROCEDURE Se tCt IMi n 

FUNCTION GetCtlMin 
PROCEDURE SetCt IMox 

FUNCTION GetCtlMax 



t heCon t r o I : 
m i n V a I u e : 



( theCon t rol: 
: integer ; 

( t heCont ro I : 
max Va I ue : 



( theCont ro I 
: i n t ege r ; 



\ Miscellaneous Utilities 
PROCEDURE SetCRefCon ( 



t heCon t r o I : 
data: 



FUNCTION GetCRefCon ( theControl: 
: L o n g I n t ; 



PROCEDURE SetCt lAct ion ( 
FUNCTION GetCtlAction ( 



t heCon t r o I : 
ac t i onP roc : 



t heCon t r o I : 
ProcPtr ; 



-I 



Con t r o I Hand I e ; 

i n t ege r ) ; 

ex ternol (-22173) ; lA963i 

Con t ro I Hand I e ) 

ex ternol (-22176) ; \A96di 

Con t r o I Hand I e ; 

i n t ege r ) ; 

ex terno I (-22172) ; ^A964| 

Con t ro I Hand I e ) 

ex ternol (-22175) ; JA96U 

Con t r o I Hand I e ; 

integer ) ; 

ex ternol (-22171 ) ; lA965i 

Con t ro I Hond I e ) 

ex terno I (-22174) ; JA962^ 



-I 



Con t r o I Hand I e ; 

Long I n t ) ; 

ex ternol (-22181 ) ; JA95B| 

Con t ro I Hand I e ) 
external (-22182) ; lA95A| 

Con t ro I Hand I e ; 

ProcPtr ) ; 

ex ternal (-22165) ; JA96B^ 

Con t ro I Hand I e ) 

ex terno I (-22166) ; JA96A| 
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A. 4. Desktop Manager (DeskMgr) 



unit Oes kMg r ; 

i n te r f ace 

I Uses Moccore. OdTypes, TbTypes I 

Uses |$U MACCORE . CO0E| Moccore, 

S$U ODTYPES .CODEf ODTypes ( Po i n t , Po i n t P t r 

Rect) , 
J$U TBTYPES. CODEI TBTypes ( Even t Reco r d , Ev 

const 



, GrafPort. GrofPt 
tRecP t r ,Wi ndowP t r ) 



r , Style. 



cu ICmd 


= 


I Cut command I 


copyCmd 


«= 1 


] Copy command I 


pQS teCmd 


= 2 


1 Paste command 


undoCmd 


= 3 


1 Undo command I 



\ Opening and Closing Desk Accessories 

FUNCTION OpenDeskAcc ( theAcc; 
: i n t ege r ; 

PROCEDURE CloseDeskAcc ( refNum: 



I HancM i ng Events in Desk Accessories 



St r I ngPtr ) 

ex terno t (-22090) ; JA9B6^ 

integer ) ; 

externol (-22089) ; lA9B7| 



PROCEDURE SystemClick ( 



t heEven t : 
t heWi ndow : 



FUNCTION SystemEdit ( editCmd: 
: MocBool ; 

I Performing Periodic Tasks •• 

PROCEDURE SystemTask ; 

J Advanced Routines ■ ■ 

"UNCTION SystemEvent 



^'ROCEDURE SystemMenu 



t heEven t : 
MocBool ; 

menuResu I t : 



-I 



EvtRecPtr ; 

w i ndowP t r ) ; 

external (-22093) ; JA9B3| 

! n t ege r ) 

ex ternal (-22078) ; JA9C21 

_ _ , I 



ex terno! (-22092) ; |A9B4| 



-I 



EvtRecPtr ) 

external (-22094) ; ^A9B2| 

Long ! n t ) ; 

externa! (-22091 ) ; jA9B5i 
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A. 5. Dialog Manager (DialogMgr) 



unit Dial ogMgr ; 
i n t e r face 



\ Uses MacCore, ODTypes, TBTypes I 

use 
^$U 



■ ODT 



$U MACCORE .COOEi MacCore , 

TYPES. CODE^ ODTypes (GrafPort. GrafPtr. Point, VHSelect. 

FPoi nt . Rec t , Rec tPt r) , 
J$U TBTYPES. CODEl TBTypes (EvtRecPtr, Even t Reco rd , w i ndow r eco r d . 

wi ndowpt r ,wi ndowhandle, TEHandle, 

TEPtr.TERec) ; 



J$Lt| 




cons t 




\ 1 tern Typ 


e 


c tr M tern 




btnCt r 1 




chkCt r 1 




radCt r 1 




reset r 1 




statTex t 




edi tTex t 




i con 1 tern 




p i c 1 tern 




use r 1 t em 




i temD i sab 1 


e 



1 

2 

3 

8 

16 

32 

64 

; 

128 



add to following four constants ] 

standard button control | 

standard check box control \ 

s t ondo r d 

control defined in control template I 

static text I 

editable text (dialog only) | 

icon \ 

Ou i ckD row Picture I 

application defined it em (dialog only) 

add to any of above to disable j 



\ I tern numbers of OK and Cancel buttons I 

OK = 1 ; 

Cancel « 2 ; 

\ Resource IDs of Alert Icons I 



s topi con 


= ; 






no te 1 con 


= 1 ; 




c tn 1 con 


= 2 ; 




pe 






Dial ogPt r 


= MacPtr ; 




D io 1 ogPeek 


= MocPtr ; 




Dial ogReco rd 


«= RECORD 




w i ndow : 


W i ndowReco r d ; 


: dialog w i ndow I 


i terns : 


Handle ; 


item list I 


t e X t H : 


TEHandle ; 


: current edit Text item I 


edi tField: 


i n t ege r ; 


editText item number minus 1 


edi 1 p e n : 


integer ; 


internal use only I 


oDe f 1 tern: 


integer ; 


default button number I 


End ; 






DiologTHndl 


= MocPtr ; 




DiologTPtr 


= MacPtr ; 




Dial ogTemp 1 a 


e = PACKED RECORD 




boundsRec t 


Rect ; 


becomes window's portRect | 


proc 1 D : 


integer ; 


window definition ID I 


f i ller 1 : 


Sma 1 1 Boo 1 




NOT USED I 


visible: 


Smo 1 1 Boo 1 




TRUE if visible I 


f i 1 1 e r 2 : 


Sma 1 1 Boo I 




NOT USED I 


goAwoyP 1 ag 


Smo i i Boo 1 




TRUE if has go away region I 


refCon : 


Long I n t ; 


window's reference value | 


1 terns ID : 


integer ; 


resource ID of item list 


title: 


Str255 ; 


w i ndow ' s title | 


End ; 









StogeList = PACKED ARRAY[1..4] of Byte 
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Aler tTHnd! « MocPt r ; 

Al er tTPt r = MocP t r ; 

A I er tTempl a te = RECORD 

boundsRect: Rect ; 

i terns I : integer ; 

s t ages : S t ogeL i s t 
End ; 



becomes window's portRect 
resource ID of item list I 
alert stage information | 



J Initialization 

PROCEDURE ErrorSound ( 



soundP roc : 



PROCEDURE SetDAFont ( fon 
\ Creating and Disposing of Dialogs 
FUNCTION NewDiolog ( 



Dia 



FUNCTION GetNewDialog ( 

PROCEDURE CloseDiolog ( 

PROCEDURE DisposDiolog ( 

PROCEDURE CouldOialog ( 

PROCEDURE FreeDiolog ( 



Dia 



d S t o r a g e : 
boundsRec t : 
title: 
visible: 
proc I D : 
beh i nd : 
goAwayF I ag : 
re f C o n : 
i terns : 
logPtr ; 

d i a I og I d : 
wS to (age : 
beh i nd : 
logPtr ; 

t heO i a f og : 



t heD i a I og : 
d i a I og I : 
d i o log I D : 



[ Handling Dialog Events - 
PROCEDURE ModolOiaiog ( 

■UNCTION I sD i a I ogEvent ( 
"UNCTION DialogSelect ( 



PROCEDURE DigCut ( 

'ROCEDURE DIgCopy ( 

'ROCEOURE DIgPaste ( 

ROCEDURE DIgOeiete ( 

ROCEDURE OrawDialog ( 

Invoking Alerts 



ProcPtr ) ; 
external (-22132) ; 

i n t ege r ) ; 



JA98CI 



MocPtr ; 
RectPtr ; 
StringPtr ; 
MocBool ; 
integer ; 
w i ndowP t r ; 
MacBool ; 
Longint : 
Handle ) 
external (-22147) ; 

i n t eger ; 
MacPtr ; 
WindowPtr ) 
ex ternol (-22148) 

DialogPtr ) ; 
ex ternal (-22142) 

OiaiogPtr ) ; 
external (-22141 ) 

i n teger ) ; 
externa! (-22151 ) 

integer ) ; 
external (-22150) 



JA97D| 

|A97C| 
|A982^ 
|A983| 
|A979| 
|A97A^ 



f i I terProc : ProcPt r ; 

i temHi t : i ntegerP t r ) ; 

external (-22127) ; |A991| 

theEvent: EvtRecPtr ) 

MocBool ; ex ternal (-22145) ; JA97F| 

theEvent: EvtRecPtr ; 

theDialog: OiaiogPtr ; 

i t emH it: integerPtr ) 

MocBool ; external (-22144) ; JA980| 

theDialog: DiologPtr ) ; 

theDi I og: Dial ogPt r ) ; 

theDi o 1 og: Dial ogP t r ) ; 

theDi a I og: Dial ogPt r ) ; 

theDialog: DialogPtr ) ; 

ex ternal (-22143) ; JA981| 
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FUNCTION Alert 



FUNCTION StopAlert 



FUNCTION NoteAlert 



( aler t ID: 

f i I terProc : 
: i n t ege r ; 

( al er t ID : 

f i I terProc : 
integer ; 

( al er t ID: 

f i I terProc : 
integer ; 



FUNCTION CoutionAlert ( 



al er t ID: 
f i I terProc: 
integer ; 



PROCEDURE CouldAI er t 
PROCEDURE FreeAlert 



( 



al er t ID: 
aler t ID: 



J Manipulating Items in Dialogs and Alerts 



PROCEDURE PoromText 



PROCEDURE GetDI tern 



PROCEDURE SetDI tern 



PROCEDURE Get I Tex t 



PROCEDURE Set 1 Text 



PROCEDURE Sel IText 



( 



par am0 ; 
pa r ami : 
par am2 : 
pa r am3 : 



theD i a I og : 
i t emNo : 
ki nd: 
i tem: 
box : 



theD i a I og : 
i t emNo : 
ki nd: 
i tem: 
box : 



i tem: 
text : 



i t em: 
text: 



theD i a I og : 
i temNO: 
star tSe I : 
endSe I : 



i n t eger ; 
ProcPtr ) 
external (-22139) ; JA985| 

integer ; 
ProcPtr ) 
ex ternal (-22138) ; ^A986^ 

i n t eger ; 
ProcPtr ) 
ex ternol (-22137) ; ^A987| 

integer ; 
ProcPtr ) 
ex ternal (-22136) ; lA988| 

integer ) ; 

ex ternal (-22135) ; fA989^ 

i n t ege r ) ; 

external (-22134) ; JA98A^ 

1 



S t r i ngP t 
St r ingPt 
St r i ngP t 
Str ingPt 
external 

Di logP t 
i n teger 
i n tege r P 
Hand I e ; 
Rec tPt r 
ex te r na I 

D i a logPt 
integer 
i n teger 
Handle ; 
Rec tPtr 
external 

Handle ; 
Str ingPt 
external 

Handle ; 
St r i ngPt 
ex te r na I 

Di a logPt 
i n tege r 
i n teger 
i n tege r 
ex ter no I 



r ) ; 

(-22133); ^A98B^ 



t r ; 

(-22131); lA98D| 



(-22130); |A98E^ 



r ) ; 

(-22128); \k99^l 



r ) ; 

(-22129); |A98F| 



(-22146); |A97E| 



FUNCTION GetAlrtStage : integer ; 
PROCEDURE ResetAI r tStoge ; 
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A. 6. Event Manager (EventMgr) 



un it Even tMg r 



interface 












|Uses MACCORE. 


OOTypes. TBTypes^ 


\%l-l 






Uses |$U MACCORE. 


:O0E^ Maccore, 


$U ODTYPES. 


:O0E ODTypes ( 


$U TBTYPES. 


:ODE| TBTypes ( 


\%IU 






const 






\ event codes 


I 




nu 1 t Even t 









mouseOown 


= 


1 




mouseUp 


« 


2 




keyDown 


»= 


3 




keyUp 


« 


4 




au t oKey 


a= 


5 




updo te£v t 


» 


6 




d i skEv t 


ss 


7 




oc t ivoleEvt 


ar 


8 




abo r t Ev t 


s: 


9 




ne t wo r kEv t 


e 


10 




d r i ve r Ev t 


«r 


1 1 




oppl Ev t 


a= 


12 




app2£v t 


=r 


13 




app3Ev t 


a= 


14 




opp4Ev t 


= 


15 




\ event Masks 


I 




eve r yeven t 




-1 ; 


nul IMosk 


s= 


1 




mDownMas k 


s= 


2 




mUpMask 


a= 


4 




keyOownMask 


e 


8 




keyUpMosk 


« 


16 




ou toKeyMask 


x: 


32 




updo t eMosk 


a: 


64 




di skMask 


ts 


128 ; 


oc t i vMas k 


= 


256 ; 


obo r tMosk 


sr 


512 ; 


ne two r kMosk 


s 


1024 




dr i verMosk 


= 


2048 




oppl Mask 


= 


4096 




app2Mask 


s 


8192 




app3Mas k 


s= 


16384 ; 


Qpp4Mask 


= 


-3^ 


>- 


^6? 


3 ; 



Point, PointPtr, GrafPort,GrafPtr, 
EvenlRecord.EvtRecPtr) ; 



nui I I 

mouse down I 

mouse up I 

key down | 

key up I 

auto-key I 

update I 

disk i nse r t ed I 

activate I 

obor t I 

ne t wor k | 

I/O dr i ver I 

oppl icotion-defined 

oppl icat ion— defined 

oppl icotion-defined 

oppl i CO t i on— de fined 



a i ! even t s 



KeyMopPtr = MacP t r ; 

KeyMop » PACKED ARRAY [1..128] of Booieon ; 

Accessing Events ■ — 

UNCTION GetNextEvent ( eventMosk: 

theEven t : 
: MocBoot ; 



UNCI ION EventAvai ! ( 



even tMosk : 
theEven t : 
: MocBool ; 



Posting and Removing Events ■ 

UNCTION PostEvent ( eventCode: 



integer 
EvtRecPtr ) 
external (-22160) ; 

integer ; 
EvtRecPtr ) 
externa ! (-22159) ; 



1A970^ 



I n t ege r 
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even tMessage : 
: i n lege r ; 

PROCEDURE FlushEvents ( evenlMask: 

s t opMas k : 

PROCEDURE SetEventMask ( theMosk: 

FUNCTION OsEventAvail ( theMask: 

t heEven t : 
: WocBoo I ; 

FUNCTION GetOsEvent ( theMask: 

t heEven t : 
: MacBoo I ; 



\ Reading the Mouse 

PROCEDURE GetMouse ( mouseLoc: 



FUNCTION Button 
FUNCT ION St i I IDown 
FUNCTION WaitMouseUp 
I Miscellaneous Utilities 
PROCEDURE GetKeys ( 

FUNCTION TickCount 
FUNCTION DoubleTime 
FUNCTION CaretTime 



MocBoo 1 
MacBoo I 
MocBoo I 



Long I n t 
Long I n t 
Long I n t 



Long I n t ) 



i n t eger ; 
i n t ege r ) ; 

i n t eger ) ; 

integer ; 
EvtRecPtr ) 



integer ; 
EvtRecPtr ) 



Poi ntPt r ) ; 

ex ternol (-22158) 

external (-22156) 

external (-22157) 

ex ternal (-22153) 



lA972^ 
\A97Al 
]A97Zl 
lA977^ 
1 



KeyMopPtr ) ; 

ex ternal (-22154) ; lA976i 

external (-22155) ; ^A975^ 
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A. 7. File Manager (FileMgr) 



unit F i I eMg r ; 

inter f oce 

|USES MocCore^ 

uses J$U MACCORE . CODE^ MacCore ; 

type 

f i nder Info = RECORD 

fiType : OsType ; I The type of the file I 

fi Creator : OsType ; \ The creator of the file I 

fifiags : integer ; I Hosbundle, Invisible, etc. I 

fiLocation : Record \ Point Location I 

f i V : i n t ege r ; 

f i h : integer ; 
end ; 

fifldr : integer ; | folder containing the file | 
End ; 



^ . High Level File Monoger Routines 

\ Accessing Volumes 

FUNCTION GetVlnfo ( DrvNum: integer ; 

vo I Nome : S t r i ngP t r ; 

VAR vRefNum: integer ; 

VAR freeBytes: Longint) 
: OsErr ; 

FUNCTION GetVol ( voiName: StringPtr ; 

VAR vRefNum: integer ) 
: OsErr ; 

FUNCTION Set Vol ( vol Name: StringPtr ; 

vRefNum: integer) 
: OsErr ; 

"UNCTION FlushVol ( volName: StringPtr ; 

vRefNum: integer) 
: OsErr ; 

"UNCTION UnMountVol ( volNome: StringPtr; 

vRefNum: integer) 
: OsEr r ; 

'UNCTION Eject ( volName: StringPtr; 

vRefNum: integer) 
: OsErr ; 



\ Chang i.ng File Contents 

•UNCTION Creote ( filename: Str255; 

vRefNum: integer; 

creator : OsType ; 

file type : OsType ) 
: OsErr ; 

"UNCTION FSOpen ( filename: Str255; 

vRe f Num : i n t ege r ; 

VAR refNum: integer) 
: OsErr ; 

"UNCTION FSRead ( refNum: integer; 

VAR Count: Longint; 
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FUNCT ION FSWr i te 



FUNCTION GetFPos 



FUNCTION SetFPos 



buf fPt r : 
: OsErr ; 

( r e f Num : 
VAR Count: 

buf fPt r : 
: OsErr ; 



r e f Num : 
VAR f i I ePos : 
OsErr ; 

r e f Num : 
posMode ; 
posOf f : 



MacPtr ) 



i n lege r ; 
Long I n t ; 
MocPt r ) 



i n tege r ; 
Long I n t ) 



integer ; 
integer; 
Long I n t ) 



FUNCTION GetEOF 



FUNCTION SetEOF 



FUNCT ION All ocate 



FUNCTION FSCIose 



( r e f Num : 
VAR logEOF: 
: OsErr ; 



: OsErr 



VAR 
: OsErr 



r e f Num : 
I ogEOF: 



r e f Num : 
Count : 



: OsErr 

\ Changing Information About Files 
FUNCTION GetFlnfo ( 



FUNCTION SetFlnfo 



FUNCTION SetFLock 



FUNCTION RstFLock 



FUNCTION Rename 



( f i I ename : 
vRe f Num : 
VAR f ndr Info: 
: OsErr ; 

( f i I enome : 
vRe f Num: 
f nd r Info: 

: OsErr ; 

( f i I enome : 
vRe f Num : 



OsEr r 



f i I enome : 
vRe f Num: 



OsErr 



o I dname : 
vRe f Num : 
newnome : 



integer; 
Long I n t ) 



i n teger ; 
Long I n t ) 



i n tege r ; 
Long I n t ) 



i n teger ) 



Str255; 

i n teger ; 

F i nde r info) 



Str255; 

i n t ege r ; 

F i nde r Info) 



Str255; 
i n tege r ) 



Str255; 
i n tege r ) 



St r255; 
i n teger ; 
Str255) 



FUNCTION FSDelete 



( 



f i I enome ; 
vRe f Num : 



\- 



: OsErr ; 
High Level Device Monoger Routines 



Str255; 
i n tege r ) 



FUNCTION OpenDriver 



{ name : 

VAR refNum: 
: OsErr ; 



FUNCTION CIoseDriver ( refNum: 
: OsErr ; 



Str255 ; 
integer ) 



i n teger ) 



FUNCTION Control 



refNum: integer ; 

csCode : i n tege r ; 

csPoram: INTERFACE PACKED 
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ARRAY[min. .max: integer] 
OF CHAR ) 

: OsErr ; 

FUNCTION Status ( refNum; integer ; 

c sCode : i n t ege r ; 

VAR csParam: INTERFACE PACKED 

ARRAY[min. .max: integer] 
OF CHAR ) 

: OsErr ; 

FUNCTION Kit I 10 { refNum: integer ) 

: OsErr ; 
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A.8. Font Manager (FontMgr) 



unit Fon t Mg r ; 

interface 

JUses MACCORE. ODTypes^ 

Uses |$U MACCORE. CODE Maccore, 

1$U ODTYPES.CODEI ODTypes (Style. Point) 



const 

\ Font Numbe r s I 

systemFont = 

opp I Fon t = 1 

newYork = 2 

geneva = 3 

monoco = 4 

ven ice =5 

I ondon * 6 

othens = 7 

sanFran «= 8 

tor on to =9 



System Font ] 
app I i CO t i on Font 



type 

FMt nPt r 
FMOutPt r 



= MacPt r 
= MacPtr 



FMInput = PACKED RECORD 



f am i I y : 
size: 
needb its: 
face : 
dev ice: 
nume r : 
denom : 



i n t ege r 
i n t ege r ; 
sma I I boo I 
style ; 
integer ; 
Point ; 
Point ; 



font number I 

font size I 

TRUE i f draw i ng I 

Char oc te r style f 

device numbe r | 

numerators of scaling factors I 

denominators of scaling factors I 



FMOutput = PACKED RECORD 



d 
End 



r r Num ; 
on tHond 1 e : 
tot ic : 
old; 

IShodow: 
I f f s e t : 
hadov 
I Thi ck: 
seen t 
X t ra: 
i dma X 
escen 1 
nused : 
ead i ng : 
ume r : 
enom : 



i n t ege r ; 
Handle ; 
by te 
by te 
by te 
by te 
by te 
by te 
by te 
by te 
by te 
byte 
by te 
by te 
Point 
Po i n t 



I Getting Font Informotion 
PROCEDURE GetFontName ( 

PROCEDURE GetFNum ( 

FUNCTION ReolFont ( 



not Used | 

handle to font record I 

italic factor I 

bo I d foe to r ] 

underline shadow i 

underline offset | 

shadow factor | 

underline thickness I 

ascent I 

width of Style \ 

maximum character width I 

descent I 

I ead i ng I 

numerators of scaling factors I 

denominators of scaling factors \ 



font Num : 
t heName ; 



fon tName : 
t heNum: 



f on tNum : 
size: 



i n t ege r ; 

St r i ngP t r ) ; 

external (-22273) ; |A8FF^ 

St r i ngPt r ; 

i n t e g e r P t r ) ; 

external (-22272) ; |A900| 

integer ; 
integer ) 
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: MacBool ; ex t e r na I (-22270) ; fA902| 

I Keeping Fonts in Memory 1 

PROCEDURE SetFontLock ( lockflog: MocBooi ) ; 

ex ternol (-22269) ; ^A903| 

I Advanced Routine 1 

FUNCTION SwapFont ( i nRec : FM I nP t r ) 

: FMOutPtr ; e x t e r no I ( -2227 1 ) ; |A901| 
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A.9. Global Types (MacCore) 



un i t MacCo re ; 

interface 

const 

abs_n i I = ; | n i I 

mac_true = 256 ; 
mac_ f a I se = ; 

type 

I General purpose declarations for 
I procedures. 

MacPtr = integer?; 
Handle = integer?; 
ProcPtr = integer?; 



value associated with MocPtr ] 
with Macintosh O.S. interf 



use 



ace 



MacBool = 
Sma I I Boo I = 
MocBoolPtr = 



i n t e g e r ; 
0. .255; 
MacPtr ; 



LongInt = integer?; 
LonglntPtr = MacPtr ; 

Str?55 = str ing[?55] 
StringPtr = integer?; 
StringHondle =Handl- • 



I nt< 



tegerPtr = MacPtr ; 

Byte « 0. .?55 

OsE r r «= in t ege 

OsType 



3yte « 0. .?55; 
DsE r r «= i n t ege r ; 

\ OsType Is the basic 4 character identifier used by many Macintosh 
J Facilities. OsTypePtr is for passing VAR parameter addresses. 
[ FOsType is for passing VALUE parameters. 

OsTypePtr = MacPtr ; 
FOsType= integer? ; 
OsType - RECORD 
cose boo lean of 

true : f c : PACKED ARRAY [1..4] OF CHAR ) ; 

false : ( p : FOsType ) ; 
End ; 

Functions for conversion between ToolBox data representation and 
UCSD Pascal data representation. 



Function ToMacBoo I ( ub 

Function FrMocBool ( mb 

Function ToSmol I ( ub 

Function FrSmall ( mb 



Boo I eon 
MocBoo I 
Boo I eon 
Sma M Boo I ) 



MacBoo I ; 
Boo I eon ; 
Sma t t Boo t 
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A.IO. Global Data (MacData) 



un i t MacOa ta ; 

inter face 

fuses MacCore, OdTypesf 

Uses |$U MocCo r e . Code I MacCore , 
i$U OdTypes . Code ^ OdTypes 

(GrofPtr, PatternPtr. CursorPtr, BitMapPtr) ; 



Var 

thePort : 
wh i te : 
black ; 
gray : 
I tGroy : 
dkGray : 
or row 
sc reenb i t 
r ondSeed 
A5 : 



GrofPtr 
Pa t ternP t r 
Pa t ternP t r 
Pa t ternPt r 
Pa t ternP t r 
Pat ternP t r 
Cur sorP t r ; 
8 i tMopP t r ; 
Long I n tP t r 
MocPtr : 



pointer to quickdrow default port | 

pointer to white pen pattern I 

pointer to block pen pattern | 

pointer to gray pen pattern I 

pointer to light gray pen pattern I 

pointer to dark gray pen pattern I 

pointer to arrow cursor I 

pointer to screen bitmop I 

pointer to random function seed | 

Reg i s t e r A5 value I 
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A. 11. Error Codes (MacErrors) 



unit ma c e r r o r s ; 

interface 

\ Macintosh Error Codes I 



\ General System Errors 



NoEr r 
OEr r 
VTypEr r 
CorEr r 
Un impE r r 



= -2 
= -3 
= -4 



\ I/O Sy s tern Errors 



no error occurred I 

queue element not found during deletion 

invalid queue element I 

core routine number out of range I 

un i mp I emen t ed core routine I 



Con t ro 1 E r r 


s 


-17 


S tatusEr r 


r= 


-18 


ReodE r r 


s: 


-19 


Wr i tEr r 


MZ 


-20 


BadUni tErr 


s= 


-2 1 


Unit Emp ty E r r 


= 


-22 


OpenEr r 


= 


-23 


C 1 osE r r 


s 


-24 


DRemovEr r 


sx 


-25 


DInstEr r 


r= 


-26 


Abor tErr 


s: 


-27 


No tOpenE r r 


«= 


-28 



File System Errors 



Di rFul Er r 
DskFu I Er r 
NsVErr 
IGErr 
BdNomE r r 
FNOpnEr r 
EOFEr r 
PosEr r 
MFul Err 
TMFOErr 
FNFErr 
WPrEr r 
FLckdEr r 
VLckdEr r 
FBsyEr r 
DupFNEr r 
OpWrEr r 
Par omE r r 
RFNumEr r 
GFPErr 

VolOf f Li nEr r 
Pe rmE r r 
VolOnLi nEr r 
NSDrvEr r 
NoMocDskEr r 
ExtFSErr 
FSOSErr 

BadMDBer r 
WrPermEr r 



-33 

-34; 

-35 

-36 

-37 

-38 

-39 

-40 

-41 

-42 

-43 

-44 

-45 

-46 

-47 

-48 

-49 

-50 

-51 

-52 

-53 

-54 

-55 

-56 

-57 

-58 

-59 



-61 



Tried to remove on open driver ] 
Drvrlnstall couldn't find driver in resources 
I/O call abor ted by Ki I t io I 
driver not opened I 



directory full ] 

disk full I 

no such volume I 

I/O Error I 

bod name I 

File no t open | 

End of File I 

tried to position before start of file I 

memo ry too full to load file I 

too many files open I 

File not found I 

diskette is write protected I 

file is I ocked I 

vo I ume is locked I 

file is busy | 

duplicate file name I 

file already open with write permission I 

error in user porometer list I 

refnum error | 

get file position error I 

volume not on I i ne (was Ejected) | 

permissions error (during file open) I 

drive volume already on-line at MountVol I 

ho such drive I 

not a macintosh diskette I 

volume belongs to an external f i !e system I 

during rename old entry was deleted but I 

no t be res to red I 

bad master directory block I 

write permissions error| 



\ Disk, Serial Ports, and Clock specific errors | 



NoD r i veE r r 


= -6 4 


Of fLinErr 


= -65 


NoNybErr 


= -66 



drive not installed \ 

r/w request for on offline drive | 

couldn't find 5 nybbles in 200 tries 
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NoAd 
Data 
BadC 
BadB 
NoD t 
BadD 
BadD 
WrUn 
Cant 
Tk0B 
I n i t 
TwoS 
SpdA 
Seek 
Sec t 



rMkEr r 
VerEr r 
kSmE r r 
tSI pErr 
oMkEr r 
CkSum 
BtSI p 
de rRun 
S t epE r r 
odE r r 
IWMer r 
deE r r 
djEr r 
Err 
NFEr r 



CI kRdEr r 
CI kWrEr r 
PRWr Er r 
PRI n i tEr r 

Re V r E r r 
BreakRecd 



-67 
-68 
-69 
-70 
-71 
-72 
-73 
-74 
-75 
-76 
-77 
-78 
-79 
-80 



-85 
-86 
-8 7 



-89 
-90 



\ Memory Manager Errors I 



MemFu I I E r r 
N i I Hand i eEr r 
memWZE r r 
memPu r E r r 
memAd r E r r 
memAZE r r 
memPCE r r 
memSCEr r 
memSCE r r 



-108 
-109 
-1 1 1 
-1 12 
-1 10 
-1 13 
-1 1 4 
~1 15 
-1 16 



J Resource Manager Errors 



ResNo t Found 
ResFNo t Found 
AddResFa i I ed 
AddRe f Fol I ed 
RmvResFo i 1 ed 
RmvRe f Foi I ed 



-192 
-193 
-194 
-195 
-196 
-197 



I Scrap Manager Errors 



noSc r opEr r 
noTypeEr r 



-102 



couldn't find valid address mark | 

read ve r i f y compa re failed | 

address mark checksum didn't check | 

bod oddr mark bit slip nibbles I 

couldn't find a data mark header I 

bod data mark checksum I 

bod data mark bit slip nibbles I 

write underrun occured | 

step handshake foi led I 

trock doesn't detect chonge I 

unable to initiolize I WM I 

tried to read 2nd side on 1 side drive | 

unable to correctly adjust disk speed I 

track number wrong on address mark I 

sector number never found on o track I 

unable to read some clock value twice | 
time written did not verify I 
parameter ram didn't read-verify | 
InitUtil found the parom ram unitialized 

SCO Rece iver error \ 
Break rece i ved l 



not enough room in heap zone I 

Handle was Nit in Handle Zone ] 

WhichZone failed (applied to free block) ] 

block was locked or non-purgoble | 

address was odd or out of range I 

Address in zone check failed j 

Pointer check failed | 

Bl ock Check Foi I ed I 

size chec k failed | 



Resource not found f 
Resource file not found I 
Addresource failed | 
Addreference foiled | 
RmveResource failed | 
RmveRe f e rence failed | 



No scrap exists I 

No object of that type in scrap | 



J APPLICATION CODE ERRORS FROM -1024 TO -4095 ] 
\ Dead System Alert Identifiers | 



DSSysErr 


t= 


32767 


DSBusEr ror 


»= 


1 ; 


DSAddressEr r 


XT 


2 ; 


DS 1 It 1 nstEr r 


s: 


3 ; 


DSZeroO i vEr r 


mz 


4 ; 


DSChkEr r 


= 


5 ; 


DSOvF 1 owEr r 


= 


6 ; 


DSPr i vEr r 


«: 


7 : 


OSTrocErr 


= 


8 ; 


DSLineAErr 


= 


9 ; 


OSLineFErr 


= 


10 




OSMi scEr r 


a= 


1 1 




DSCoreEr r 


^ 


12 




DS 1 rqEr r 


= 


13 




DSlOCoreErr 


=s 


1 4 




OSLoodEr r 


s= 


15 




DSFPErr 


= 


16 





DSMemFu! I Er r «= 25 



genera! system error | 
bus error I 
Add ress error | 
illegal instruction error I 
divide by zero error I 
check trap error I 
overflow trap error | 
privitoge violation error | 
trace mode error | 
line 1010 trap error i 
line 1111 trap error I 

miscellaneous hardware exception error I 
un i mp I emen t ed core routine error| 
uninstoMed interrupt error | 
1/0 Core Error I 
Segment Loader error | 
Floating Point error f 

\ out of memory | 
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DSBodLaunch 



can't launch file 



DSStknHeap 


= 28 


DSFSErr 


= 27 


OSRe 1 nser t 


= 30 


OSNotThel 


= 31 



stack has moved into application heop I 
f i le system map has been trashed ] 
request user to reinsert off— line volume I 
not the disk I wan ted \ 
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A. 12. Memory Manager (MemoryMgr) 



un i t Memo r yMg r ; 



inter face 






\ Uses MacCorel 






;$L-^ 






uses |$U MACCORE .COOEl MacCore; 


J$Lt| 






type 






S i ze ^^ Long ! n 


t ; 




THz = MocP t r 




\ 


Zone - RECORD 






B k L i m : 


MocP t r ; 




PurgeP t r : 


MacPt r ; 




HFs tFree: 


MocPt r ; 




ZCBFree: 


Long 1 n t ; 




GZProc : 


ProcPt r ; 




MoreMas t : 


i n t ege r ; 




Flogs: 


integer; 




CntRe 1 : 


integer; 




MoxRe ! : 


i n t ege r ; 




Cn tNRe 1 : 


i n t ege r ; 




MoxNRe 1 : 


i n tege r ; 




Cn t Emp t y : 


i n t ege r ; 




Cn tHond 1 es : 


i n tege r ; 




Mi nCBFree : 


Long 1 n t ; 




PurgeProc : 


ProcPt r ; 




SporeP t r : 


MacPtr ; 




At 1 ocP t r : 


MocPt r ; 




HeopDo to : 


integer; 




End; 







Points to Q Zone Record | 



Initialization and Allocation 



PROCEDURE MoreMosters 
PROCEDURE i ni tZone 



i Heap Zone Access 



'ROCEDURE SetZone 
■UNCTION GetZone 
"UNCTION SystemZone 
"UNCT ION AppI icZone 



growProc : ProcPtr ; 
moster Count : integer ; 
limitPtr. StartPtr : MacPtr ) 



( hz 
THz; 
THz; 
THz; 



THz ) ; 



Allocating and Releasing Reiocotoble Blocks 



"UNCTION NewHandle 



( 



'ROCEDURE DisposHondle ( 

UNCTION GetHandleS i ze ( 

ROCEDURE Se tHond I eS i ze ( 

UNCTION HondleZone ( 

UNCTION RecoverHondl e ( 



by teCoun t : Size) 
Han<i\e ; 



h: 
Si ze; 



h: 
MacPtr ; 



p: 
Hand 1 e ; 



Handle) ; 
Handl e) 

Hand I e ; 
Si ze) ; 

Hand! e) 
MacP t r) 
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PROCEDURE Real locHandle ( h: 

by teCoun t : 

\ Allocating and Releasing Nanrelocotab 



FUNCTION NewPtr 

PROCEDURE Di sposP t r 
FUNCT ION Ge tP t rS i ze 



( 



by teCoun t : 
MacP t r ; 



p: 
p: 



Hand I e ; 
Si ze) ; 

I e Blocks- 
Si ze) 

MacPt r ) ; 
MacP t r ) 



PROCEDURE SetPt rSi ze 
FUNCTION PtrZone 



p: 

newS i ze : 



p: 
MacP t r ; 



\ Freeing Space on the Heap 



FUNCTION FreeMem 
FUNCTION MaxMem 

FUNCTION CompactMem 



PROCEDURE ResrvMem 
PROCEDURE PurgeMem 
PROCEDURE EmptyHondle 



: Long I n t ; 

(VAR grow: 

: Size; 

( cbNeeded : 

: Size; 

( cbNeeded: 

( CbNeeded: 
( b : 



\ Properties of Relocatable Blocks 



PROCEDURE HLock 
PROCEDURE HUnlock 
PROCEDURE HPurge 
PROCEDURE HNoPurge 



I Grow Zone Functions 

PROCEDURE SetGrowZone 
FUNCT ION GZCr i t i cal 
FUNCTION GZSoveHnd 



\ Utility Rout i nes - 
PROCEDURE BlockMove 



FUNCTION TopMem 
FUNCTION MemError 



MacP t r ; 
Si ze) ; 

MocPt r ) 



Si ze) 
Size) 



Si ze) ; 
Si ze) ; 
Hand I e ) ; 



Handl e) 
Handle 
Handl e ) 
Handle 



g r owZone : 
Boo lean; 
Hand I e ; 



ProcPt r ) ; 



srcPt r , 
destPtr : 
by teCoun t : 



MocP t r ; 
i n t ege r ; 



MocPt r ; 
Size); 
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A. 13. Menu Manager (MenuMgr) 



un i t WenuMg r ; 

i n t e r face 

JUses MacCore. ODTypes^ 

Uses |$U MACCORE .COOE^ MocCore , 

\%U ODTYPES.CODEi QDTypes (FPoint. style) 

cons t 



noMo r k 
chec kMo r k 
app I eSymbo I 

mO rawMsg 
mChooseMsg 
mS i zeMsg 

t ex tMenuP roc 

type 

MenuP t r 
MenuHond I e 



18 
20 



= 1 
= 2 



= MacPtr 
= Handle 



drow the menu I 

tell which item was chosen and hilite 

calculate the menu's dimensions l 



Menulnfo « RECORD 

menu I D : 

menuW i d t h : 

menuHe i gh t : 

menuP roc : 

enob I eF I ags : 

menuOa to : 
End ; 



i n t ege r ; 

i n t ege r ; 

integer; 

Handle ; 

PACKED ARRAY [0..31] OF Boolean 

Str255 ; 



J Initialization and Allocation 
PROCEDURE I ni tMenus ; 
FUNCTION NewMenu ( 



FUNCTION GetM.enu ( 

^'ROCEDURE DisPoseMenu ( 

PROCEDURE AppendMenu ( 

PROCEDURE AddResMenu ( 

PROCEDURE I nser tResMenu ( 



menu 1 d 
menuT i 
Me nuHond 1 e ; 


t le: 


integer ; 
StringPtr ) 
external (-22223 


menu 1 d 
MenuHand 1 e ; 




i n tege r ) 
external (-22981 


me n u : 




MenuHand 1 e ) ; 
externa! (-22222 


menu : 
data: 




MenuHandle ; 
StringPtr ) ; 
externa! (-22221 


menu : 
t heTyp 


e : 


MenuHandle ; 
FOSType ) ; 
externa! (-22195 


menu : 
t heTyp 
after! 


e : 

tern: 


MenuHandle ; 
FOSType ; 
i n tege r ) ; 



_ — „ I 

external (-22224) ; |A930^ 

); |A931^ 
); JA9BFI 
); \A952l 

); |A933| 

); tA94D^ 

ex terno! (-22191 ) ; |A951| 



\ Forming the Menu Bar — — 
PROCEDURE InsertMenu ( 



menu: MenuHondle ; 

be f or e 1 D : in tege r ) ; 

external (-22219) ; JA935| 
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PROCEDURE DrawMenuBar ; 

PROCEDURE DeleteMenu ( 

PROCEDURE ClearMenuBar ; 

FUNCTION GetNewMBor ( 



menuBa r I D : 



Handle ; 

FUNCTION GetMenuBor : Handle ; . 
PROCEDURE SetMenuBar ( menuBor: 



external (-22217) ; JA937| 

integer ) ; 

external (-22218) ; JA936| 

external (-22220) ; lA934^ 

i n t ege r ) 

ex ternal (-22080) ; |A9C0( 

externa I (-22213) ; ^A93Bi 

Handle ) ; 

externa I (-22212) ; ^A93Ci 



\ Choosing from o Menu 

FUNCTION MenuSelect ( startPt: 
: L o n g I n t ; 



FUNCTION MenuKey 
PROCEDURE Hi I i teMenu ( 



( ch: 
: L o n g I n t ; 



\ Controlling Items' Appearance 



PROCEDURE Set I tern 



PROCEDURE Get I tern 



( 



( 



PROCEDURE Di sablei tern ( 
PROCEDURE Enobleltem ( 



PROCEDURE Checkl tern 



( 



PROCEDURE Setltemlcon ( 



PROCEDURE Getltemlcon ( 



PROCEDURE SetltemStyle ( 



PROCEDURE GetltemStyle ( 



PROCEDURE SetltemMark ( 



FPoint ) 

ex ternal (-2221 1 ) ; lA93Di 

Char ) 

external (-22210) ; JA93E| 

integer) ; 

ex ternal (-22216) : JA938( 



me nu : 


MenuHondle 




i tern: 

i temS t r i ng : 


i n tege r ; 
Str i ngP t r ) ; 
external (-22201 ) ; 


1A947| 


menu : 


MenuHond 1 e ; 




i t em: 

i temS t r i ng : 


integer ; 
StringPtr ) ; 
external (-22202) ; 


^A946| 


menu : 


MenuHondle ; 




i tern: 


i n tege r ) ; 
external (-22214) ; 


JA93A| 


menu : 


MenuHond 1 e ; 




i t em : 


i nteger ) ; 
externol (-22215) ; 


1A939^ 


menu : 


MenuHond 1 e ; 




i tern: 
checked : 


integer ; 
MocBool ) ; 
external (-22203) ; 


^A945f 


menu : 


MenuHondle ; 




i tern: 


integer ; 




i conNum : 


i n tege r ) ; 
external (-22208) ; 


lA940| 


menu : 


MenuHond 1 e ; 




i tern: 


i n t ege r ; 




i conNum: 


integerPtr ) ; 
external (-22209) ; 


JA93F? 


menu : 


MenuHond 1 e ; 




i tern : 
chS ty 1 e: 


i n tege r ; 
style ) ; 
external (-22206) ; 


\A9A2l 


menu : 


MenuHondle ; 




i t em : 
chSty le: 


i n tege r ; 

i ntegerP t r ) ; 

external (-22207) ; 


|A941 I 


menu : 


MenuHondle ; 
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i t em : integer; 

ma rkChar: char ) ; 



ex terna I (-22204) ; JA944| 

PROCEDURE GetltemMork ( menu: MenuHandle ; 

i t em: in tege r ; 

markChar: MacPtr ) ; 

externa I (-22205) ; ^A943| 

\ Mi scellaneous Ut i I i t ies 1 

PROCEDURE SetMenuFlosh ( menu: MenuHandle ; 

floshCount: integer ) ; 

ex terna I (-22198) ; |A94A| 

PROCEDURE CalcMenuSize ( menu: MenuHandle ) ; 

external (-22200) ; {A948^ 

FUNCTION CountMltems ( menu: MenuHandle ) 

: integer ; ex te r na I (-22 1 92 ) ; jA950i 

FUNCTION GetMHandle ( menulD: integer ) 

: MenuHandle ; e x te r na I (-22 1 99 ) ; ^A9A9l 

PROCEDURE FloshMenuBar ( menulO: integer ) ; 

external (-22196) ; |A94C| 
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A. 14. Operating System Types (OsTypes) 



un i t OsTypes ; 

interface 

JUses MacCore, ODTypes, TBTypes^ 

uses ^$U MACCORE . CODE? MacCore, 

|$U ODTYPES . CODEJ ODTypes ( Po i n I , VHSe I ec t . Or o f Po r t , G r a f P I r , Rec t ) 
|$U TBTYPES . code! TBTypes ( Even t Reco r d ) ; 

type 

OEIemPtr = MacPtr ; 
OHdrP t r = MacPt r ; 
ParmB I kPt r == MacPtr ; 



Finfo «= RECORD 

fdType : OsType ; 
fdCreator : OsType 
f dP I ags : i n teger ; 
fdLocation ; Point 
f dP t dr : in t ege r ; 

end ; 

DrvQEI = RECORD 

qLi nk : OE I emP t r ; 
qType : INTEGER ; 
dODrive : INTEGER ; 



The type of the file I 
The creator of the file I 
hosbundle, invisible, etc. | 
file's location in the folder 
folder containing the file I 



dORefNum : 


INTEGER ; 




DOES ID : INTEGER ; 


dODrvSize : 


INTEGER ; 


End ; 




VCB = RECORD 




qL i nk : 


OEIemPtr ; | 


qType : 


i n teger 




vcbF 1 ags : 


i n teger 




vcbS i gWord : 


i n t e g e r 




vcbCrDate: 


Long 1 n t 




vcbLsBkUp: 


Long 1 n t 




vcbA t r b : 


i n teger 




vcbNmF 1 s : 


i n t ege r 




vcbD i rS t : 


i n t e g e r 




vcbB 1 Ln: 


i n teger 




vcbNmB Iks: 


integer 




vcbAIBI kSi z 


: L o n g 1 n t 




vcbC 1 pS i z : 


Long 1 n t 




vcbAlB ISt : 


i n teger 




vcbNx tFNum: 


Long 1 n t 




vcbFreeBks : 


i n tege r 




vcbVN : 


String[27] ; \ 


vc bD r vNum : 


i n tege r 




vcbDRe f Num: 


i n teger 




vcbFSID: 


i n teger 




vcbVRef Num: 


1 nteger 




vcbMAdr : 


MacPtr ; • 


vcbBu f Adr : 


MocPtr ; ■ 


vcbMLen : 


i nteger 




vcbD i r 1 ndex 


: i n teger 




vcbD i rB 1 k : 


integer 




End ; 




VBLTask = RECORD 


q L i n k : 


OEIemPtr ; \ 


qType: 


i nteger 




vbl Addr : 


ProcPtr 




vb 1 Coun t : 


i n teger 




vblPhase : 


i n tege r 





ne X 
no t 
bi t 
a I w 
dot 
dot 
vo I 
num 
di r 
I en 
num 
s i z 
num 
f i r 
ne X 
num 
vo 1 
dr i 
dev 
f i I 
vo I 
ioc 
I oc 
num 
use 
use 



t 
use 
15~ 

ays 

e vo 

e o f 

ume 

be r 

ec to 

gth 

be r 

e o f 

be r 

s t b 

t un 

ber 

ume 

ve n 

i ce 

€ sy 

ume 

a t i o 

at i 

be r 

d i 

d i 



eue 
d I 
1 i f 
Hex D 
I ume 

last 
at t r i 
of f i 
ry ' s 
of f i 
of a I 

olio 
of by 
I ock 
used 
o f un 
name 
umbe r 
r e 1 e r 
s tern 
refer 
n of 
n of 
o f by 
t e r na 
t e r no 



ntry ] 



I 



initialized I 



ac ki. 
tes 
s i r 
rst 

di 
cat 
t io 
s t 

bl 
ie 
ed 



I 



n directory I 

block I 
rectory 
ion b I oc ks 
n blocks 
o a I I oca te | 
ock mop I 
number | 
blocks I 



ce number ] 
e n t i f i e r I 
ce number I 
ock mop I 
ume bu f f e r 



tes in block map | 



next queue entry 
queue type I 
task add ress I 
task f r equency ] 
task phase | 
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End 



EvOEl = 


RECORD 


q L i n k 




OElemPtr ; 


qType 




i n t ege r ; 


Event 




Even tRecord 


End ; 







next queue entry I 

queue t y pe ^ 

event record description I 



Pa r amB 1 kTy pe = (loParom. FilePoram, Vo iumePo ram , CntrlPoram) 



PoramB I ockRec = PACKED RECORD 
I 12 BYTE heoder used by the 
qLink : OElemPtr ; i 

qType: integer; \ 

ioTrop: integer ; | 

ioCmdAddr : MocPtr ; \ 

\ Common head to all varionts 
ioCompletion : ProcPtr ; | 
i oResu I t OsE r r ; \ 

i oNameP t r : S t r i ngP t r ; \ 
ioVRefNum : integer ; \ 



^ different components 
Case ParomBlkType OF 
i oPo r am : 

(ioRefNum : integer ; 

ioPermssn : Byte ; 

i oVe r sNum : Byte ; 

ioMisc : MocPtr ; 



oBuf f er : MacP t r ; 
oReqCount : Longlnt ; 
oActCount : Longlnt ; 
oPosMode : integer ; 
oPosOffset : Longlnt 



) 

Fi I 

( 



ePor 
oFR 
! ! I 
oFV 
oFD 
oFI 
oFl 
oFl 
oFI 
oFl 
oFl 
oFl 
oFI 
oFl 
oFI 
oFl 
oFI 



am : 
e f Num : 
e r 1 : By 
e r sNum : 

ndex 
Ve r sNum 
At t r i b : 
Fnd r I n f o 
Num : Lo 
S tBi k 
LgLen 
PyLen 
RS tB I k 
RLgLen 
RPyLen 
CrDot 
MdDa t 



integer ; 

te ; 
Byte ; 
integer 

: Byte ; 
By te ; 
: F i n f o 

ng I n t : 

integer 

Long I n t ; 

Longlnt ; 
integer 
Long I n t 
Long I n t 

Longlnt ; 

Long 1 n t 



umePa r am 
;f i 1 Ier2 : 
oVo I I nde 
oVCrOa te 
oVLsBkUp 
oVAtrb : 
oVNmF 1 s : 
oVDirSt : 
oVbILn : 
oVNmA ! B I k 
oVAlB i kSi 
oVCI pSi z 
oAlBISt : 
oVNx tFNum 
oVFrBlk : 



Long I n t 
: ' i n t eg 
L o n g i n 
Long I n 
i n t ege r 
i n t ege r 
i n t e g e r 
i n t ege r 
s : i n t e 
z : Long 
: Long i n 
i n t eger 
: Long i 
i n t ege r 



ger 
Int 
t ; 



file and I /O sy s t em | 
queue I ink in header | 
type byte for safety check I 
FS: the Trap | 
FS: address to dispatch to I 



completion routine oddr f 

r esu I t code I 

po i n t e r to Vo I : f 

vo I ume reference 



I I ename 
numbe r 



string I 



for the different types of parameter blocks 



efnum for I/O operation I 
pen : Permissions ^ 
e r s i on numbe r I 
ename : new name I 
etEOF.SetEOF : logical end of 
pen : optional ptr to buffer | 
etPilelype : new type | 
ota buffer ptr I 
equested byte count I 
ctuol byte count completed | 
nitiol file positioning I 
ile po sit ion offset I 



I reference number for file operation | 

version numbe r | 

GetFilelnfo directory index I 

File version number I 

GetFilelnfo: i n-use bit«7. lock bit=7| 

Finder Info I 

GetFilelnfo : File Number | 

start file block (0 if none)^ 

logical length (Eof) | 

phy s i CO I length I 

Start block of resource fork I 

file logical length of resource fork I 

file physical length of rsrc fork | 

file creation time ic date \ 

last modified time it date l 



volume index number | 
creation date and time I 
lost bockup dote and time I 
vo 1 ume attribute I 
number of files in directory I 
start block of directory | 
GetVollnfo : length of dir in blocks| 
GetVoilnfo : # biks (of alloc size) | 
GetVollnfo : alloc bik byte size | 
GetVoilnfo : kbytes in one alloc I 
starting disk block in block map f 
GetVollnfo : next free file # I 
GetVotlnfo : § free biks for the vol 
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); 

Cn t r I Pa ram: 

( f i I I e r 3 : in t ege r 
CSCode : i n lege r ; 
CSParam : i n tege r 

); 

End ; \ Pa r amB I oc kRec I 



OHdr = RECORD 

OFIags integer 
OHeod : OE I emP t r 
OTai I : OE I emP t r 

End ; ] OHdr I 

OTypes = 

( dummy Type , 
vType . 
i oOTy pe , 
drvOType , 
evOType , 
fsOType ) ; 



OEIem - RECORD 
CASE OTypes of 

vTy pe : ( vb I OE I em : 
i oOType .• I i oOE I em; 
drvOType :( drvOEIem: 
evOType : ( evOEIem: 
fsOType : ( vcbOEIem: 

End ; 



word specifying status operation \ 
device control or status parameter 



Miscellaneous Flogs I 
first element on queue 
lost element on queue I 



vertical retrace queue type I 

I/O request queue type I 

drive queue type | 
, event queue type \ 
I volume control block queue type \ 



VBLTosk ) ; 
Pa r omB I oc kRec ) 
DrvOEl ) ; 
EvOEl ) ; 
VCB ) 
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A. 15. Operating System Utilities (OsUtilities) 



un i t OsUt i I i t i es 



inter face 



uses 



HLt] 



$U MACCORE.CODE 

$U ODTYPES.CODE 

$U TBTYPES.COOE 

$U OSTYPES.CODE 



MacCo re , 

OD Types (Po i nt , VHSe lect.GrafPort.GrafPtr.Rect), 

TBTypes ( Even t Reco r d ) , 

OSTypes (QE I emP t r , OHd r P t r ) ; 



type 



SysParmType = RECORD 



va ! id: 
por t A : 
por tB: 
a i a rm ; 
font : 
kbdPr i nt : 
vo I C I i ck : 
m i s c : 
End ; 



Long I n t 

i n t ege r 

integer 

Long 1 n t 

■ n t ege r 

n t ege r 

n t ege r 

n t ege r 



validity status | 

modem po r t ( 

printer por t ( 

alarm setting I 

default applicoti on font I 

outo-key thresh/rate; printer's port 

vol level; db I -c I i c k/ca r e t blink | 

mouse seal i ng ; boot disk; menu bl ink 



SysPP t r = MocPt r 



Do t eT imeRec = 

yea r : 

mon t h : 

day : 

hou r : 

minute: 

second: 

doyOfWeek : 
End ; 



RECORD 
i n tege r 
i n tege r 
i n t e g e r 
i n tege r 
i n tege r 
i n t e g e r 
i n t ege r 



four-digit year | 

1 to 12 for January through December 

1 to 31 I 

to 23 I 

to 59 I 

to 59 1 

1 to 7 for Sunday through Saturday I 



ApFi le = RECORD 

f V r e f n um : integer 
f t ype ; OsType ; 
fversion; integer 
fname: St r 255 ; 

End ; 



volume reference number ] 
type of file | 
version § in high byte | 
file name I 



\ Pointer 
■UNCI ION 



and Handle Manipulation 

theHndl : 



HandToHand 
Pt rToHand 



( VAR 
: OsErr 



VAR 
OsErr 



srcP t r : 
ds tHndl : 
size: 



Handle ) 



MacPtr ; 
Hand I e ; 
Longint ) 



"UNCTION PtrToXHond 



UNCT ION 
UNCT ION 



HondAndHond 
Pt rAndhand 



OsErr 



srcPt r : 
ds tHndl : 
size: 



oHndl , bHnd I 



ptr: 
hndl : 

size: 



MacPtr ; 
Handle ; 
Long I n t ) 



Handle ) 



MocPtr ; 
Handle ; 
Long 1 n t ) 



S t r i ng Compar i son 
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FUNCTION EqualString 



PROCEDURE UprSt r i ng 



aSt r , bSt r : 
caseSens , d 
MacBool ; 

t heS t r i ng : 
d i acSens : 



St r i ngP t r ; 
i acSens : Boo I eon ) 



St r i ngPt r ; 
Boolean ) ; 



\ Dote and Time Operations 

FUNCTION ReadDateT ime ( VAR sees: 
: OsErr ; 



FUNCTION SetDateTime 

PROCEDURE Date2Secs 

PROCEDURE Secs2Date 

PROCEDURE GetTime 

PROCEDURE SetTime 



( sees : 

: OsErr ; 

( VAR date: 

VAR sees: 



( 



sec s : 
date: 



VAR 

( VAR date 
( VAR date 



J Parameter RAM Operations 
FUNCTION I ni tut i I 
FUNCTION GetSysPPtr 
FUNCTION Wr i tePoram 
\ Queue Manipulation - 
PROCEDURE Enqueue 



OsErr ; 
SysPPtr 
OsErr ; 



qElement : 
theO : 

qE I emen t : 
theO : 
OsErr ; 



FUNCTION Dequeue 

\ Dispatch Table Utilities 

PROCEDURE SetTrapAddress( trapAddr: 

t r opNum: 

FUNCTION GetTrapAddress( tropNum: 
: Long I n t ; 



\ TextEdit / Scrap Utilities 

FUNCTION TEScrapHond I e : Handle ; 
FUNCTION TEScrapLen : integer ; 
\ Finder Interface Utilities 



PROCEDURE Coun tAppFi I es ( VAR Message: 

VAR Count: 



PROCEDURE CtrAppFiles ( 
PROCEDURE GetAppFi les ( 



index: 
theFi I e; 



i Miscellaneous Uti! 
PROCEDURE Delay 

PROCEDURE SysBeep 



t i es 



numT i c ks : 
f i no I T i c ks : 



duration: 



Long I n t ) 

Long I n t ) 

DoteTimeRec ; 
Long I n t ) ; 

Long I n t ; 
DoteTimeRec ) 

DoteTimeRec ) 

DoteTimeRec ) 



OEIemPtr ; 
OHdrPtr ) 

OEIemPtr ; 
OHdrPtr ) 



Long I n t ; 
i n teger ) 

integer ) 



i n tege r ; 

i n teger ) 

i n tege r ) 

i n tege r ; 

ApFi le ) 



Long I n t ; 
Long I n t ) 

i n tege r ) 



1200301:0AB 



A-45 



MACINTOSH INTERFACE Appendix A 



externa! (-22072) ; |A9C8| 

PROCEDURE GetlndString ( VAR theString: Str255 ; 

StrListId: in teger ; 
i ndex : i n teger ) ; 
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A. 16. Package Manager (Packages) 



Un i t Packages 



i n t e r f ace 



^$L-^ 








Uses |$U MACCORE 


CODE: 


MacCore , 


: $U ODTYPES 


CODEi 


OdTypes 


( jTypes^ 


Poi n t 


, FPoint ) ; 


^$lt^ 






Const 






\ S tandard File Rout 


i ne Numbers I 


RSFGetFi le 




« 2 




RSFPGetFi le 




« 4 




RSFPPutFi le 




« 3 




RSFPutFi le 




»= 1 




\ Disk 1 n i t i 1 i za t i on 


Rou t i ne Numbe r s I 


RO IBadMount 




- e 




RD 1 Forma t 




= 6 




RDI Load 




«= 2 




RD lUn 1 ood 




= 4 




ROIVer i fy 




- 8 




RDIZero 




*= 10 ; 


\ 1 n te r no t i ona 


Ut i 1 


ities Routine Numbers 


R lUDatePStr i ng 




- 14 ; 


R lUOateStr i ng 




- ; 


RIUGet 1 nt 1 




- 6 ; 


R 1 UMagI DSt r i ng 




= 12 ; 


RIUMagStr i ng 




-= 10 ; 


RIUMetr ic 




« 4 ; 


RIUT imePStr i ng 




« 16 ; 


R lUT imeSt r i ng 




- 2 ; 


R lUSet t nt t 




- 8 





J standard File Package Constants 



putD I gID 
pu tSave 
pu tCance I 
pu tE j ec t 
pu tD r i ve 
pu tName 

getD IgId 
ge tOpen 
ge tConce I 
ge tE j ec t 
ge tOr i ve 
ge tNmLs t 
ge tSc r o i I 



-3999 



1 
2 
5 
6 
7 

-4 

1 

3 

5 

6 

7 

8 



SFPutFile dialog template ID \ 

save bu t ton | 

Cance I bu t ton | 

Eject Button I 

Dr i ve But ton { 

EditText item for file name I 

SFGetFile dialog template ID ] 

Open Bu t t on | 

Cance I button I 

Eject button | 

Drive button \ 

user I tern for file name list I 

userltem for scroti bar I 



\ International Utilities Package Constants 

I DoteForm Constonts I 
Shor tDo te = ; 
LongDate « 256 ; 
AbbrevDote = 512 ; 



I Currency format flags 
currLeadingZ = 128 ; 
cur r T r a i I « ngZ «= 64 
currNegSym = 32 
cur r SymT roil «= 16 



Mask for leading zero ] 

Mask for trailing zero I 

Mask for for minus sign / brackets 

Mask for currency symbol location | 
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\ Short Date Form Constants | 
DMY = 2 

YMO « 1 

MOY « 

I date element format masks | 
mn t Lead i ngZ = 64 ; 
doyLeodingZ = 32 ; 
century * 1 28 ; 

\ time element format masks I 
hrLeodingZ = 128 : 
m i nLeod i ngZ = 64 ; 
sec Lead i ngZ « 32 ; 



day, month, year 
year , mon t h , day 
mon t h , day , yea r 



Mask for leading zero on month | 
Mask for leading zero on day I 
Mask for century / no century I 



Mask for leading zero on hour I 
Mask for leoding zero on minutes 
Mask for leading zero on seconds 



\ contry codes for version numbers 

verUS = 8 

ve r F r ance = 1 

verBritoin « 2 

verGermany ■= 3 

ve r I to I y « 4 

Type 

I Standard File Types I 

SFReply = PACKED RECORD 



copy: 
good : 
f t ype : 
V R e f N urn : 
version: 
f name : 
End ; 



Smo I I 8oo I 
Sma I I Boo I ; 
OsType ; 
i n t ege r ; 
i n t ege r ; 
S t r i ng[63] 



not used j 
ignore command if false 
file type or not used I 
volume reference number 
file version number I 
file name | 



SFTypeList = ARRAY [0..33 of OsType 

Pt rSFReply « MacPtr ; 
PtrSFTypeLi st == MocPtr ; 



\ I nte 
i nt I0H 
i nt I0P 
i nt I0R 
t hou 
dec i 
cur r 
list 
cur r 
cur r 
da te 
cu r r 
do t e 
shr t 
t i me 
t ime 
mo r n 



r no t i ona I 
ndi 
t r 

ec «= 

s S e p : c 

ma I Pt : c 

Syml : c 

Sep : c 

Sym3: c 

Sym2: c 

Order: B 

Fmt : 8 

Sep : c 
OateFmt :8 
Fmt : 
Cyc i e: 
Str : 



eveS t r : 

t imelSuf f 
t ime Sep : 
t ime3Su f f 
t ime2Suf f 
t imeSSuf f 
t ime4Su f f 
t ime7Suf f 
t ime6Su f f 
me t r i cSy s 
t imeSSuf f 
i n t I 0Ver s 
End ; 



Resources Interface | 
Hand I e ; 
MocPtr ; 
PACKED RECORD 

har ; | ASCI I character for thousand seperator | 

har ; | ASCII character for decimal point I 

hor ; I Acurrency symbol (3 bytes) I 

har ; | ASCII chorocter for list seperator I 
ha r ; 
hor ; 

yte ; I short Date form - DMY. YMD or MDY | 

yte ; ' currency format flags I 

har I ; ASCII for dote seperator I 

yte ; date elements format flags I 

yte ; time elements format flogs | 

yte ; \ indicates 12 or 24 hour cycle | 

ACKED ARRAY [1..43 of char ; 

\ trailing string from 0:00 to 11:59 I 

ARRAY [ 1 . . 4] of char ; 

I trailing string from 12:00 to 23:59 I 

\ suffix string used in 24 hr mode (8 chars) 

I time seperator | " 



PACKED 

cha r 
cha r 
cho r 
char 
char 
char 
chor 
char 
Byte 
char 
i n t ege 



I indicates metric or English system | 

I vrsn: hi byte = country / lo byte « vers 
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ARRAY [1. 
ARRAY [ 1 
Byte 



i nt I IHndl 

i nt I IPtr 

i nt I IRec 

days : 

mon t hs : 

da t eFmt : 

supr essOo te : By te 
abbr Len : Byte 
day Lead i ng0 : By te 
st0: ~ " ■ 
sti : 
st2: 
st3: 
St4: 

i nt MVers 
I oca I r tn : 
End ; 



= Hond I e 
- MocPt r 

PACKED RECORD 



7] of St r i ng[15] ; 

\ Sunday through Monday I 
.12] of Str ing[l5] ; 

January through December I 

expanded dote format or 255^ 

for day of week, 255 for no day of 

month length for short-expanded date 

255 for leading 0, for no leading 

PACKED ARRAY[l..4l of char 

PACKED ARRAY'1..4* of chor 

PACKED ARRAY"1..4" of char 

PACKED ARRAY 'l.. 4' of chor 

PACKED ARRAY[1..4J of char 

integer ; j version word I 

integer ; |- routine to handle exceptions for mag 



^eek I 
I 



\ Standard File Package — 
PROCEDURE SFPutFi le ( 



PROCEDURE SFPPutFi I e 



whe r e : 
pr omp t : 
o r i gName : 
d I gHook : 
reply: 
RSFPutFi le: 



where: 
pr omp t : 
o r i gName : 
d I gHook : 
rep I y : 
dIgID: 
f i I terProc : 
RSFPPutFi l€ 



whe re : 
prompt : 
f i I eFi I ter : 
numTy pes : 
t ypeL i s t : 
d I gHook : 
reply: 
RSFGetFi le: 



PROCEDURE SFPGetFile ( where: 

pr omp t : 
f i leFi I ter : 
numTypes: 
typeLi st : 
d I gHook: 
rep I y : 
d I g I D : 
f i I te rProc : 
RSFPGetFi le: 



PROCEDURE SFGetFi le 



\ Disk Initiolization Package 

PROCEDURE DiLood ( RDILood: 

PROCEDURE DIUnload ( RDIUnLood: 



FUNCTION DIBodMount ( where: 

ev tMessoge : 



FPoint ; 

Str i ngPt r ; 

S t r i ngPt r ; 

ProcPtr ; 

PtrSFReply ; 

i n tege r ) ; 

ex ternal (-22038) ; jA9EAi 



FPoint ; 
St r i ngPtr ; 
StringPtr ; 
ProcPtr ; 
PtrSFReply ; 
integer ; 
ProcPtr ; 
i n tege r ) ; 
external (-22038) ; 



|A9EA^ 



FPoint ; 

S t r i ngP t r ; 

ProcPtr ; 

i n tege r ; 

Pt rSFTypeLi St ; 

ProcPtr ; 

PtrSFReply ; 

i n tege r ) ; 

ex ternal (-22038) ; fA9EA| 

FPoint ; 

St r i ngPt r ; 

ProcPtr ; 

integer ; 

PtrSFTypeLi st ; 

ProcPtr ; 

PtrSFReply ; 

i n tege r ; 

ProcPtr ; 

integer ) ; 

external (-22038) ; JA9EA| 



-I 



|A9E9| 



i n tege r ) ; 
external (-22039) 



i n t ege r ) ; 

external (-22039) ; ^A9E9| 

FPoint ; 
Long I n t ; 
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RD IBadMount 








i n teg- 


er ; 


FUNCTION 


1 Fo rmo t 


( 


OsErr 


dr vNum: 
RO 1 Forma t : 


FUNCT ION 


Dl Ver i fy 


( 


OsErr 


dr vNum: 
RDI Ver i fy : 


FUNCT ION 


DIZero 


( 




d r vNum : 
vo 1 Name ; 
ROIZero: 
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integer ) 

externol (-22039) ; JA9E9| 

i n teger ; 
integer ) 
external (-22039) ; \A9E9l 

i n teger ; 
i n t ege r ) 
external (-22039) ; JA9E9| 

i n tege r ; 
S tr i ngPt r ; 
i n teger ) 
: OsErr ; ex t e r no I (-22039) ; JA9E9| 

\ International Utilities Package 1 

PROCEDURE lUDoteString ( doteTime: Long I n t ; 

DateForm: integer ; 
resu It: S tr i ngP t r ; 

R I UOo teS t r i ng ; integer ) ; 

external (-22035) ; JA9ED| 

PROCEDURE lUDotePS tr i ng ( doteTime: LongInt ; 

DateForm: integer; 
resu It: St r i ngP t r ; 

i n t I Par am : Hand I e ; 
R lUDo tePS t r i ng: integer ) ; 

external (-22035) ; ^A9E0i 

PROCEDURE lUTimeString ( doteTime: LongInt ; 

wontSeconds: MocBool ; 
resu It: S t r I ngP t r ; 

RIUTi me String: integer ) ; 

external (-22035) ; ^A9ED| 

PROCEDURE lUT imePS t r i ng ( doteTime: LongInt ; 

wontSeconds: MocBool ; 
resu t t : S t r I ngP t r ; 

intlPorom: Handle ; 
R ! UT imePS t r i ng : integer ) ; 

external (-22035) ; |A9ED^ 

"UNCTION lUMetric ( R I UMe t r ! c : integer ) 

: MocBool ; ex t e r no I (-22035) ; JA9£0| 

■UNCTION lUGetlntl ( thelO: integer ; 

RIUGet Int I : integer ) 
: Handle ; ex ter no I (-22035 ) ; lA9ED| 

PROCEDURE lUSetlntl ( refNum: integer ; 

the ID: integer ; 

int I Par om: Hond I e ; 
RlUSet I nt I : integer ) ; 

external (-22035) ; |A9E0^ 

UNCTION lUMogString ( o: StringPtr ; 

b: StringPtr ; 

oLen : i nt ege r ; 

bLen : i ntege r ; 

R I UMogS t r i ng : integer ) 

: integer ; ex te r no 1 (-22035 ) ; JA9ED| 

UNCTION lUMaglDSt r i ng ( a: StringPtr ; 

b: StringPtr ; 

oLen: integer; 

bLen: integer ; 

RJUMoglDSt r i ng: integer ) 

: integer ; ex ter no ! (-22035 ) ; |A9ED| 
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A.17. Parameter Block I/O Manager (PBIOMgr) 



un i t Pb I OMgr ; 

i n t e r i oce 

JUSES Maccore, ODTypes, TBTy pes , OsTy pes | 

$U MACCORE. CODEf Maccore, 

$U ODTYPES-CODEJ OdTypes ( Po i n t , VHSe I ec t , Gr a f Po r t . Gra f P t r , Rec t ) . 

$U TBTYPES.COOEJ TBTypes ( Even t Reco r d ) , 

$U OSTYPES.COOE OsTypes (ParmBlkPtr, Pa ramB I oc kRec . OHd rP t r ) ; 

J Low Level File Manager Routines 1 

\ Initializing the File I/O Queue 1 

PROCEDURE InitOueue; EXTERNAL (-24542 ) ; lA822^ 

I Access i ng Vo I umes 1 



FUNCTION PBMountVol 
FUNCTION PBGetVlnfo 

FUNCTION PBGetVoi 



( pa r amS I oc k : 
: OsErr ; 

( paromBlock: 

a s y n c : 
: OsErr ; 



( 



pa ramB lock: 
osync : 



ParmBI kPt r) 



ParmB I kP t r ; 
boo I eon) 



ParmB 1 kP t r ; 
boo I eon) 



FUNCT ION • PBSetVol 



FUNCTION PBFIshVol 



: OsErr 



par omB lock: 
osync : 



( paromBlock: 

async : 
: OsErr ; 

FUNCTION PBUnmountVol ( paromBlock: 
: OsErr ; 



FUNCTION PBOffLine 



pa ramB lock: 
async : 



ParmB I kPt r ; 
boo I eon) 



ParmB I kPt r ; 
boo I eon ) 



ParmBI kP t r ) 



ParmB I kP t r ; 
boo I eon) 



FUNCTION PBEject ( 

I Changing File Contents- 
FUNCTION PBCreate ( 

FUNCTION PBOpen 

FUNCTION PBOpenRF 



OsErr 



pa ramB lock: 
async : 



( paromBlock: 

async : 
: OsErr ; 



( 



OsErr 



par omB lock: 
async : 



pa r omB I ock : 
async : 



ParmB I kP t r ; 
boo I eon) 



ParmBI kPt r ; 
boo I eon ) 



ParmB I kP t r ; 
boo I eon) 



ParmB I kP t r ; 
boo I eon) 



FUNCTION PBReod 



pa ramB lock: 
osync : 
OsErr ; 



ParmBI kPt r ; 
boo lean) 
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FUNCTION PBWrite ( 



FUNCTION PBGetFPos 



FUNCTION PBSetFPos 



FUNCTION PBGetEof 



FUNCTION PBSetEof 



OsEr r 



OsEr r 



OsErr 



par amB lock: 
async : 

pa r amB lock: 
async : 

par amB lock: 
async : 

pa romB lock: 
async : 

pa romB lock: 
async : 



ParmB I kPt r ; 
boo I eon ) 



ParmB I kP t r ; 
boo I eon) 



ParmB I kP t r ; 
boo I eon) 



ParmB I kP t r ; 
boo I eon) 



ParmB I kPt r ; 
boo I eon) 



FUNCT ION PBAI locate ( 



po r amB I oc k : 
async : 



ParmB I kP t r ; 
boo I eon) 



FUNCT ION PBF I shFi le 



FUNCTION PBCIose 



OsErr 



par omB lock: 
async : 



OsErr 



po romB lock: 
async : 



ParmB I kP t r ; 
boo I eon) 



ParmB I kPt r ; 
boo I eon) 



FUNCTION PBGetFlnfo ( 



po romB lock: 
osync : 



ParmB I kP t r ; 
boo I eon) 



-UNCTION PBSetFlnfo ( 



poromB I oc k : 
osync : 



ParmB i kPt r ; 
boo I eon) 



"UNCTION PBSetFLock ( 



OsErr 



■UNCTION PBRstFLock ( 



OsErr 



poromB lock: 
osync : 

poromB I ock : 
async : 



■UNCTION PBSetFVers ( 



pa r omS lock: 
async : 



ParmB I kP t r ; 
boo I eon ) 



ParmB I kP t r ; 
boo I eon) 



ParmB I kPtr ; 
boo I eon) 



'UNCTION PBRenome ( 



OsEr r 



poromB lock: 
osync : 



'UNCTION PBDelete ( 



OsEr r 



pa r omB lock: 
osync : 



ParmB I kP t r ; 
boo I eon) 



ParmB 1 kPt r ; 
boo I eon) 



Accessing Queues 

UNCTION GetFSOHdr 
UNCTION GetVCBOHdr 
UNCTION GetDrvOHdr 

l_o^ Level 

UNCTION PBControl ( 



QHdrPtr ; 
OHdrPtr ; 
OHdrPtr ; 
Device Routines- — 
par amB lock: 



PormBI kPt r 
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asy nc : Boo I eon ) 

: OsErr ; 

FUNCTION PBStotus ( poromBlock: ParmBlkPtr 

osync : Boo I eon ) 

: OsErr ; 

FUNCTION PBKilllO ( pa r omB I oc k : ParmBlkPtr 

async: Boolean) 

: OsErr ; 
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A.18. Print Manager (PrintMgr) 



Un i t Pr i n tMgr ; 
Inter face 

Uses |$U MACCORE . CODEf MoCCore, 
S$U ODTYPES.CODEf OdTypes 

( GrafPort. GrafPtr, Rec t . RectPtr, ODProcs ) 



J Pr I n t i ng Me t hods 

bOrof t Loop = 

bSpoo I Loop = 1 

bUserlLoop = 2 

bUser2Loop = 3 



FeedCut 
FeedFonFo I d 
FeedMechCut 
FeedOther 

I Scon Types 

ScanTB 
ScanBT 
SconLR 
SconRL 



^ 

= 1 

= 2 

« 3 



= 

* 1 

» 2 

« 3 



Draft Printing I 

Spoo I i ng I 

Printer Specific, method 1 

Printer Specific, method 2 



J Printer iee6 type constants I 



hand-fed . indivuoliy cut I 
con t i nuos- feed FanFold Paper j 
mechanically fed cut sheets | 
other types of poper | 



Top to Bottom 
Sot torn to Top 
Lef t to Right 
Right to Left 



TPPrPor t =» MacPtr ; 
TPrPort ^ Record 

gpo r t : GrafPort ; 

qProcs : ODProcs ; 

I other fields for internal 
End ; 



I GrafPort to be drown in | 

\ Pointers to drawing routines 

use only | 



TPPort - 


RECORD 










Case 1 


n tege r o 


f 








: 


(pGPor t 
(pPrPor t 


Gro 


fPt r 


) 


1 : 




rpp 


rPor 


t) 


End ; 












TPr t nfo 


-= RECORD 










iDev : 


i n 


eger 








iVRes 


: i n 


eger 








JHRes 


in 


eger 








r Page 


: Rect ; 








End ; 












TPrStr - 


PACKED RECORD 








wDev : 


in 


ege r 








iPageV 


: in 


ege r 








iPageH 


: in 


eger 








TFeed 


: By 


.€ ; 








bPor t 


: By 


e ; 








End ; 













Driver Information | 
Printer vertical resolution | 
Printer horizontal resolution I 
page rectangle I 



Used i n t e r no M y I 
pQpe r height \ 
Paper Width | 
Paper feed type | 
Printer or modem port 



TPrXlnfo = PACKED RECORD 
jRowBytes : integer ; 
iBandV : integer ; 
i BondH : i n tege r ; 
iDevBytes : integer ; 



Bytes per row | 
Ve r t i CO 1 do t s | 
Hor i 2on to I do t s I 
size of bit i mo g e 
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iBands : 


i n teger ; 


BUIThick : 


Byte ; 


bPatScal e 


Byte ; 


bUI Shadow 


By te ; 


bUIOf f set 


Byte ; 


bXInfoX : 


By te ; 


TScan : 


By te ; 


End ; 




TPrJob «= PACf- 


(ED RECORD 


iFstPage : 


i n t ege r ; 


iLstPoge : 


integer ; 


i Copi es : 


integer ; 


f F r omU s r : 


Sma 1 1 Boo 1 


bJDocLoop 


Byte ; 


pi d 1 eProc 


ProcPtr ; 


pF i 1 eName 


Str ingPtr 


iFileVol : 


integer ; 


bJobx : 


Byte ; 


bFi leVers 


Byte ; 


End ; 





bonds per page I 
underline thickness 
used by qu i c kdr aw \ 
underline descender 
unde r I i ne offset I 
not used I 
Scan Direction I 



First Page to print I 

Los t Page to print I 

Number of copies to print I 

TRUE if called from application I 

document style, Draft, Spool, etc 

The proc to coll while 

Spoo I file name I 

spoo I f i I e vo I ume I 

unused | 

spoo I file version I 



t i ng on I/O ] 



THPr i nt = Handle 
TPPr i nt « MocPt r 
TPr int = RECORD 



i P r Ve r s 
pr I n f o 
rPope r 
prSt! : 
pr I nf oP t 
pr X I n f o 
pr Job : 
pr i n t X : 
End ; 



: i n tege r ; 
T P r I n f o ; 
Rect ; 
TPrStI ; 
TPr Info ; 
TPrX I nfo 
TPrJob ; 
Ar r ay [ 1 . 



Printing Manager Version Number I 
printer information I 
pope r rect ong I e I 
style information I 
copy of prinfo I 
band in forma t i on ] 
job info rmo t i on I 
.19] of in teger ; 



TPrStotus = PACKED RECORD 
i To t Pages : i n tege r 



i CurPoge 
i T o t C p i e s 
iCurCopy : 
i To tBonds 
i CurBond 
f Imog i ng 
fPgO i r ty 
hPrint : 
pPrPor t 
hPic : 
End ; 



i n tege r 
: i n t ege r 
i n teger 
i n tege r 
i n tege r 
Sma t I Boo I 
Sma I I Boo I 
THPr int ; 
TPPrPor t 
Handle ; 



total number of pages 
page being printed I 
number of copies I 
current copy being pr 
bonds per page ] 
current band being pr 
TRUE i f imog i ng | 
TRUE i f star ted print 
the print record I 
print port | 
used internally I 



i n ted I 
inted I 
\ ng page 



I Initialization and Termination 
PROCEDURE PrOpen : 
PROCEDURE PrClose ; 

\ Print Records and Dialogs 

PROCEDURE PrintDefault ( h 
FUNCT ION PrVoi idote ( 

FUNCTION PrStlDioiog ( 

FUNCTION PrJobDiolog ( 

PROCEDURE PrJobMerge ( 

\ Document Printing 



hPr int 
MocBoo! ; 



hPr i n t 
MacBooi ; 



hPr i nt 
MocBool ; 



hPr i n tScr , 
hPr i n tDst 



THPr int 
THPr i nt 

THPr int 

THPr int 

THPr i nt 
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FUNCTION PrOpenDoc 

PROCEDURE PrCloseOoc 
PROCEDURE PrOpenPage 

PROCEDURE PrClosePage 

J Spool Printing 

PROCEDURE PrPicFi \e 



hPrint : 
pPrPort : 
plOBuf : 
TPPrPort ; 

pPrPort : 

pPrPort : 
pPageF r ome 

pPrPort : 



\ Hondling Errors 

FUNCTION PrError 
PROCEDURE PrSetError 



THPrint ; 
TPPrPort : 
MocPtr ) 

TPPrPort ) 

TPPrPort ; 
Rec tPt r ) ; 

TPPrPort ) 



hPr i nt : 
pPrPort : 
plOBuf : 
pOevBuf : 
pr S t a t us 



THPrint ; 
TPPrPor t 
MocPtr ; 
MocPtr ; 
MocPtr ) 



: i n t ege r ; 
( iErr 



i n tege r ) 
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A. 19. Printer Driver (PrintDriver) 



Unit PrintDriver ; 
Interface 

Uses UU MACCORE.COOEl MacCore ; 

Const 

\ Printer Driver Control coll parameters I 

iPrBitsCtI = 4 ; \ bitMop Printing I 

IScreenBits =0; J configurable! 

IPointBits = 1 ; S 72 by 72 dots I 

iPrlOCtI = 5 : I text streaming I 

iPrEvtCtI "6; jscreenprinting^ 

IPrEvtAII «= 196605 ; j print whole screen \ 

IPrEvtTop «= 131069 ; \ print top most window 

iPrDevCtI "=7; ^devicecontrol| 

IPrReset « 65536 ; \ reset printer I 

IPrPageEnd = 131072 ; \ start new page \ 

IPrLineFeed «= 196698 ; } start new line \ 

iFMgrCtI = 8 ; J used by Font Mgr j 



\ Initialization and Termination 
FUNCTION PrDrvrOpen : OsErr ; 
FUNCTION PrDrvrClose : OsErr ; 
I Printer Control 



FUNCTION PrCt I Co I I 



( 



iWhi chCt 1 
po rami , 
pa r am2 , 
param3 : 



integer ; 

Longint ) : OsErr 



\ Memory Ailocotion Control 

PROCEDURE PrPurge ; 
PROCEDURE PrNoPurge ; 

I Miscellaneous 

FUNCTION PrDrvrDce : Handle ; 
FUNCTION PrDrvrVers : integer 
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A. 20. Quickdraw Types (QdTypes) 



unit ODTypes ; 

i n t er f oce 

\ Uses MacCo re l 

Uses }%{J MacCore . Code^ MocCore 



type 



I The fol towing Pointers are used to poss parameters by ADDRESS I 

Pointer to Pattern Array I 

Poi nter to Bi tMap I 

Pointer to ODProcs Record | 

Pointer to Cursor Record I 

Pointer to Fontlnfo Record i 

Pointer to PenState Record | 

Pointer to Point Record I 

Pointer to Graph Port Record | 

0. .7] of 0. .255; 
of integer; 

I fake point for on— the-stock parameters 



Pa t ternP t r 


= MacPtr 




Bi tMopPt r 


= MacPtr 




QDProcsP t r 


» MacP t r 




Cur sorP t r 


= MacPtr 




Font 1 nPt r 


= MocPt r 




PenStPt r 


= MacPtr 




Po i n tP t r 


« MocPtr 




GrofPt r 


» MocPtr 




Pa t tern = 


packed array[ 
or ray[0 . . 15J 


Bi ts16 » 


FPoint = 


Long 1 n t ; 


VHSelect = 


(v,h) ; 


Poi n t = 


record case i 




0: (v: 




h: 




1 : (vh: 




2: (p< 


3 ram 



n t ege r o f 

i n tege r ; 

i n tege r ) ; 

or ray[VHSe ! ec t ] of 
: Long I n t ) ; 



i n tege r ) ; 



Rec tPt r = MocPt r ; 

Rect — record cose integer of 

: ( t op : i n t ege r ; 

left: in t eger ; 

bo t torn : i n t ege r ; 

right: in tege r ) ; 

1: (topLeft: Point; 

botR i gh t : Poi nt ) ; 



Sty I e I tern 
Sty le - 

Fon t I n f o = 



end ; 

(bold, i tol ic, under! ine, out line, shadow, condense, extend); 
set of Styleltem: 



record 
oscen t : 
descen t : 
w i dMax : 
leading: 

end ; 



i n tege r ; 
i n t e g e r ; 
integer; 
i n t ege r ; 



Bi tMap 



record 

boseAddr: MocPtr; 

rowBytes: integer; 

bounds : Rec t ; 
end ; 

r ecor d 

data: B i t s16; 

mo s k : 8 i t s 1 6 ; 

hotSpo t : Po i n t ; 
end ; 



PenState 



record 
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pnLoc : 


Point : 






pnS i ze : 


Point ; 






pnMode : 


i nteger 






pnPot : 


Pat tern 






end ; 




Po 


ygon = 


record 





po I yS i ze : in t ege r ; 
polyBBox: Rec t ; 

polyPoints:arroy[0..0] of Point; 
end ; 



Reg i on 



P i c ture « 



record 

r gnS i ze : i n t ege r ; 

rgnBBox: Rec t ; 

\ plus more data if not rectongular 
end ; 



rgnSize = 10 for rectangular I 



r eco r d 

picSlze: integer; 

p i cF r ame : Rec t ; 

\ plus byte codes for picture content 
end ; 



ODProcs = 


record 






tex tP r oc : 


ProcP t r 




1 i neProc : 


ProcPt r 




rec tProc : 


ProcP t r 




rRec tProc : 


ProcPt r 




ova 1 Pr oc : 


ProcPt r 




arcProc : 


ProcPt r 




po 1 yProc : 


ProcPt r 




r gnPr oc : 


ProcPt r 




bi tsProc : 


ProcPt r 




commen tProc.-ProcPt 




t xMeosP roc 


:ProcPtr 




ge tPi cProc 


:ProcPtr 




pu tP i cProc 


:ProcPt r 




end ; 




GrafPort == 


record 






dev i ce : 


i nteger 




por tB i ts : 


Bi tMap; 




po r tRec t : 


Rect ; 




V i sRgn : 


Handle; 




c i i pRgn: 


Hondle; 




bkPat : 


Pat tern 




f i 1 IPot : 


Pat tern 




pntoc : 


Po i nt ; 




p n S i z e : 


Poi nt ; 




pnMode : 


i n tege r 




pnPo t : 


Pot tern 




pnVis: 


i n tege r 




txFont : 


i nteger 




txFoce : 


Style; 




txMode: 


integer 




txSi ze: 


i n tege r 




spEx t ro : 


Long I n t 




fgCol or : 


LongI nt 




bkCol or : 


Long 1 n t 




CO 1 rS i t : 


i n tege r 




potStretch 


i n tege r 




p i cSove : 


Handle; 




r gnSave : 


Handle; 




po 1 ySave : 


Hond 1 e ; 




gra f P rocs : 


MacPtr ; 




end ; 
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A. 21. Quickdraw (QuickDraw) 



un i t Ou i ckD raw ; 

inter f oce 

JUses Maccore. OOTypes^ 

uses \$U MACCORE . CODE^ MacCore. 
i$U ODTYPES.COOeI ODTypes; 



cons t 

srcC 
srcO 
srcX 
srcB 
notS 
notS 
notS 
notS 
pate 
potO 
potX 
patB 
notP 
notP 
notP 
notP 



rcCopy 

rcOr 

r cXor 

rcB i c 

opy 

r 

o r 

i c 

a tCopy 

atOr 

atXor 

a tB i c 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 



\ the 16 transfer modes I 



QuickDraw color separation constants | 



no rma I B i t 
i nve r seB i t 
redBi t 
gr eenB i t 
bi ueBi t 
cyanB i t 
magen toB i t 
ye I I owB i t 
blockBi t 



b I ackCo ! or 
wh i t eCo I o r 
redCo t or 
greenCo i or 
b I ueCo ! or 
cyanCo I or 
mogen taCo I or 
ye I I owCo I o r 

p ! cLPor en 
p i cRPor en 



33; 
30; 
205 
341 
409 
273 
137 
69; 



- 0; 

« T ; 



GrofVerb constants for the Standard Procedures I 



Frame 
Poi nt 
Erase 
I nve r t 
Fill 



« 8 ; 

- 256 
= 512 
= 768 

- 1024 



GrafPort Routines 



-I 



rocedure OpenPort (port 

rocedure InitPort fport 

rocedure ClosePort (port 

rocedure SetPort (port 



GrofPt r) 
GrafPtr) 
GrofPtr) 
GrafPtr) 



external (-22417) 
ex ternal (-22419) 
ex terno I (-22403 J 
ex ternol (-22413; 



|A86F| 
|A86D| 
|A870| 
|A873f 
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procedure GetPort 
procedure GrofDevice 
procedure SetPortBits 

procedure PortSize 
procedure MovePortTo 



procedure SetOrigin 
procedure SetClip 
pr ocedu re Ge tC I i p 
procedure ClipRect 
procedure BockPat 



MocPtr) : 
i n tege r ) ; 
Bi tMopPt r) 



external (-224121 
external (-22414 
ex terna I (-2241 1 J 



(width, 
height : 

( lef tGloba I 
topGI obo I : 

(h. v: 
( r gn : 
f r gn : 



i n tege r ) ; 



(pa t : 



i n tege r ) ; 

i n tege r ) ; 
Handl e) ; 
Handl e) ; 
RectPtr) ; 
Pat ternPt r ) 



\ Cursor Routines 

procedure InitCursor; 
procedure SetCursor 
procedure HideCursor; 
Procedure ShowCursor; 
procedure Obscur eCur sor ; 



(crsr : 



Cur sorP t r ) ; 



ex terno I (-22448] 
ex terno I (-22447 j 
ex terno I (-22446 1 
ex ternol (-22445) 
ex ternol (-22442J 



L i ne Rou tines 



procedure HidePen; 
procedure ShowPen; 
procedure GetPen 
procedure GetPenState 
procedure SetPenStote 

procedure PenSize 



procedure PenMode 
procedure PenPot 
procedure PenNormol 
procedure MoveTo 
procedure Move 
procedure L i neTo 
procedure Line 



\ Tex t Rout i 



procedure TextFont 
procedure TextFoce 
procedure TextMode 
procedure TextSize 
procedure SpoceExtro 
procedure DrowChor 
procedure DrowString 

procedure OrowText 



f unc t i on ChorWi dth 
function StringWidth 
function TextWidth 

procedure GetFontlnfo 
\ Point Calculations - 
procedure AddPt 



(pt: 

( pnS tote: 

( pnS ta te : 

(width, 
he i gh t : 

(mode : 
(pat: 

(h, v: 
(dh,dv : 
(h,v : 
(dh.dv: 



Poi ntPtr 
PenStPtr 
PenStPtr 



integer) ; 

i n tege r ) ; 
Pot ternPt r ) : 



i n teger ] 
i n teger 1 
i n tege r 1 
i n teger j 



external (-22372; 
ex ternol (-22371 
ex ternol (-22378) 
ex terno I (-22381 . 
external (-223E 
ex ternol (-22383' 
ex ternol (-22382J 



( font : 
( face : 
(mode : 
(size: 
(extra: 
(ch: 



( textBuf : 
f i rstBy te , 
by teCoun t : 

(ch: 

: integer; 

(s: 

: integer; 

( tex tBuf : 
f i rstBy te . 
by teCoun t : 

: i n tege r ; 

(info: 



integer); 
Style) ; 
i n teger ) ; 
i n teger ) ; 
Long I n t ) ; 
char ) ; 
Str i ngPtr ) ; 

MocPtr ; 

i n tege r ) ; 

char ) 

Str i ngPt r) 

MocPt r ; 
i n teger ) 

Font InPtr) ; 



ex te r no I 
external 
external 
ex t e r no I 
ex te r no I 
ex te r no I 
ex te r no I 



(-22393) 
-22392 
-22391 ) 
-22390 
-22386 
-22397 
-22396) 



external (-22395) ; 
external (-22387) ; 
external (-22388) ; 

external (-22394) ; 
external (-22389) ; 



|A874| 
}a872I 
iA875S 



external (-22410) ; JA876| 



external (-22409) ; JA877| 



ex terno I (-22408J 
ex terno I (-22407 J 
ex ternol (-22406) 
ex ternol (-22405 ) 
ex terno I (-22404) 



external (-22378 
external (-22377 
external (-22374 
ex ternol (-22376) 
ex ternol (-22375 



external (-22373) ; JA89B^ 



A89Ci 

A890 

A89E 

A893 

A894 

A891 

A892 



5A887 

|a888 ; 

|A889 
|a88A 
5A88E 
JA883 
iA884 



JA885I 
JA88D| 
^A88C| 

JA886| 
U88BI 



-I 



( s r c : 



FPoint ; 
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procedure SubPt 
procedure SetPt 
f unc t ion Equo I P t 
procedur e Sea I eP t 

procedure MopP t 



(src: 
dst : 

(pt: 
h, v: 

(pti ,pt2: 
: M a c B o o I ; 

(pt: 
f r omRec t , 
toRec t : 

(pt: 
f romRec t , 
toRec t : 



PointPtr) ; 

); 



FPoi nt ; 
Poi ntPtr 



procedure Loco ! ToG I obo I (pt: 
procedure G ! obo I ToLoco I (pt: 

\ Rectangle Calculations — - 



Poi ntPtr ; 
integer) ; 

FPoi nt ) 



Poi ntPtr ; 

RectPtr) ; 

Poi n tPtr ; 

RectPtr) ; 

Poi ntPtr ) 
PointPtr) 



external (-22402) ; |A87E| 

external (-22401 ) ; JA87F| 

external (-22400) ; JA880| 

external (-22399) ; jA88li 

external (-22280) ; JA8F8| 

external (-22279) ; \A8F9l 

ex ternol (-22416) ; |A870| 

ex ternol (-22415) ; lA87li 



procedure SetRect 

1 unc t i on Equo I Rec t 

function EmptyRect 
;>rocedure OffsetRect 
procedure MapRect 

procedure InsetRect 
f unc t i on Sec tRec t 

jrocedure UnionRect 
^unction PtinRect 

>rocedure Pt2Rect 



(r: 
left, 
top, 
right, 
bo t torn: 

(recti , 
rect2; 
: MocBoo 1 ; 

(r: 

: MocBoo I ; 

(r: 
dh,dv: 

(r: 
f romRec t , 
toRect : 

(r: 
dh.dv: 

(srcl ,src2: 

dstRec t : 
: MacBoo ! ; 

(srcl . src2 : 
dstRec t : 

(pt: 

r : 
: MacBoo I ; 

(pti .pt2: 
dstRec t : 



Rec tPt r ; 

i n tege r ) ; 

RectPtr) 

RectPtr) 

RectPtr ; 
i n teger ) ; 

RectPtr ; 

RectPtr) ; 

Rec tPtr ; 
i n t ege r ) ; 

Rec tPtr ; 
RectPtr) 



RectPt r ; 
RectPtr) ; 

FPoi nt ; 
RectPtr) 



ex ternol (-22361) ; JA8A7| 



FPoint ; 
RectPtr) ; 



ex te r no I 
ex terna I 
ex t e r no I 

ex terna I 
ex ternol 

ex terna I 
external 

ex te r no I 
ex te r no I 



-22362); |A8A6^ 

-22354); |A8AE| 

-22360); |A8A8| 

-22278); JA8FA| 

-22359); |A8A9^ 

-22358); |A8AA| 

-22357); |A8ABJ 

-22355); |A8A0| 

-22356); |A8AC| 



Graphical Operations on Rectangles 

>rocedure FromeRect (r: RectPtr' 

>rocedure PointRect (r: RectPtr 

)rocedure EroseRect (r: RectPtr 

)rocedure Invert Rect (r: RectPtr^ 



ex terna I f-22367) 
external (-22366) 
ex ternol (-22365] 
externa I (-22364) 



|A8A1 
|A8A2 
|A8A3 
Sa8A4 



procedure Fill Rec t 
RoundRec t Routines 



(r: 
pa t : 



RectPtr ; 

PotternPtr); e x te r no I (-22363) ; |A8A5| 

„ „__ „_„ 1 
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procedure FrameRoundRec t ( r : RectPtr; 

ovWd.ovHt: Integer); 

procedure PaintRoundRect(r: RectPtr; 

ovWd.ovHt: Integer); 

procedure Er oseRoundRec t ( r : RectPtr; 

ovWd.ovHt: Integer); 

procedure I nve r tRoundRec t ( r : RectPtr; 

ovWd.ovHt: Integer); 

procedure FillRoundRect (r: RectPtr; 

ovWd.ovHt: Integer; 

pot : Pot ternP t r ) ; 



\ Oval Routines 

procedure FromeOvol 

procedure PointOvol 

procedure EroseOvol 

procedure InvertOvol 

procedure Fill Ova I 



\ Arc Routines 

procedure FromeArc 

procedure PointArc 

procedure EroseArc 

procedure InvertArc 

pr ocedu re F i I I Ar c 

procedure PtToAngle 

I Polygon Routines — 

function OpenPoly 
procedure ClosePoly; 
procedure K i i I Po t y 

procedure OffsetPoly 
procedure MopPoly 



procedure FromePoly 

procedure PointPoly 

procedure ErasePoly 

procedure InvertPoly 

procedure FillPoly 



external (-22352) ; |A8B8| 

external (-22351 ) ; ^A8B1^ 

ex ternol (-22350) ; ^A8B2| 

external (-22349) ; M8B3^ 

external (-22348) ; JA8B4^ 
1 



(r: 
pa t : 



RectPtr] 
RectPtr 
Rec tPtr 
RectPtr' 



RectPtr ; 
Pat ternPtr ) ; 



ex ternol (-223451 
ex terno I (-223441 
external (-22343 
ex terno I (-22342J 



A8B7 
A8S8 
A8B9 
A8BA 



external (-22341 ) ; |A8BB| 
„__ I 



(r: 
star t Ang I e , 
arcAng I e : 

(r: 
star t Ang I e , 
o rcAng I e : 

(r: 
star tAng I e , 
arcAng I e : 

(r: 
s tor tAng I e , 
arcAng I e : 

(r: 
star tAng I e , 
or cAng I e : 
pat : 

(r: 
pt: 
ang 1 e : 



RectPtr ; 

integer) ; 

RectPtr ; 

i n teger ) ; 

RectPtr; 

integer) ; 

RectPtr ; 

i n t ege r ) ; 

RectPtr ; 

i n tege r ; 
Pat ternPtr ) : 

RectPtr ; 

FPoint ; 

i n tege r P t r ) ; 



ex ternol (-22338) ; ^ASBEf 

external (-22337) ; ^A8BF| 

ex ternol (-22336) ; JA8C0| 

ex ternol (-22335) ; JA8C1| 

external (-22334) ; JA8C2| 

external (-22333) ; lA8C3| 



-I 



: Handle; 

(poly: 

(poly: 
dh.dv: 

(poly: 
f r omRec t , 
toRec t : 



(poly 
(poly 
(poly 
(pol y 

(poly: 
pa t : 



Hondl e) ; 

Handle; 
i n teger ) ; 

Handle; 

RectPtr) ; 

Handle) ; 
Handle) ; 
Handle) ; 
Handle) ; 

Handle; 

Pat ternPtr) ; 



external (-22325) 
external (-22324) 
external (-22323) 



|A8CB| 
|A8CC| 

IascdI 



external (-22322) ; JA8CE| 



external (-22276) ; |A8FC| 



external (-223381 
external (-223295 
ex ternol (-22328) 
external (-22327) 



A8C6| 
A8C7| 
ASCBf 
A8C9| 



external (-22326) ; \A8Ckl 



1200301:0AB 



A-63 



MACINTOSH INTERFACE 



Appendix A 



\ Region Calculations 

f unc t i on NewRgn 
procedure OisposeRgn 

procedure CopyRgn 



procedure SetEmptyRgn 
procedure SetRectRgn 



procedure RectRgn 

procedure OpenRgn; 
procedure CloseRgn 

procedure OffsetRgn 
procedure WopRgn 

procedure InsetRgn 
:>rocedure SectRgn 

procedure UnionRgn 

procedure DiffRgn 

>rocedure XorRgn 

'unction EquolRgn 
'unction EmptyRgn 
unc t i on P t I nRgn 

unction Rec t i nRgn 

Graphical Operations 

>rocedure FromeRgn 

procedure PaintRgn 

rocedure EraseRgn 

rocedure InvertRgn 

rocedur e Fill Rgn 



: Handle; 
(rgn: 

( s r cRgn , 
ds tRgn: 

( rgn: 

( rgn : 
left, 
top . 
right, 
bo t torn: 

(rgn: 



Handl e) ; 

Handl e) : 
Handl e) ; 
Hand I e ; 



Handle; 
RectPt r ) ; 



(des tRgn: Handl e) ; 



( rgn: 
dh.dv: 

(rgn: 
f r omRec t , 
toRec t : 

(rgn: 
dh,dv: 



( s rcRgnA 
s r cRgnB 
ds tRgn : 

( sr cRgnA 
s r cRgnB 
dstRgn: 

( s rcRgnA 
srcRgnB 
dstRgn: 

( s rcRgnA 
s rcRgnB 
dstRgn : 



( r gnA , r gnB : 
: MocBoo I ; 

(rgn: 

: MacBoo 1 ; 

(pi: 

rgn : 
: MocBoo I ; 

(r: 

rgn : 
: MocBoo I ; 

on Regions - 

(rgn: 
(rgn: 
^ rgn : 
(rgn: 



Handl e ; 
i n tege r ) ; 

Hand I € ; 

RectPtr) ; 

Hondl e ; 
i n tege r ) ; 



Handl e) ; 

Handle) ; 

Handle) ; 

Handle) ; 
Handle) 

Handl e) 



FPoint ; 
Handle) 



RectPtr ; 
Handl e) 




ternal (-22312) ; 
ternal (-2231 1 ) ; 



|A808| 
JASOSI 



external (-22308) ; lA80C| 
external (-22307) ; JA8DD| 



integer); ex t er no 1 (-22306 ) ; JA8DE| 



external (-22305) ; |A8DF| 

external.(-22310) ; |A8DAJ 

external (-22309) ; |A80BC 

ex ternal (-22304) ; |A8E0^ 

xternal (-22277) ; JA8FB| 

external (-22303) ; |A8E1| 

external (-22300) ; |A8E4| 

external (-22299) ; |A8E5^ 

ex ternal (-22298) ; |A8E6| 

external (-22297) ; |A8E7| 

ex ternal (-22301 ) ; JA8E3| 

external (-22302) ; lA8E2^ 

external (-22296) ; JA8E8| 

external (-22295) ; JA8E9| 

__ „ 1 



ex terna I (-22318) 
external (-22317) 
ex terna I (-22316) 
ex ternal (-22315) 



|A8D2 
iA8D3 
|A804 
|A805 



(rgn: 
pa t : 



Handl e; 

Pot ternPtr) ; 



external (-22314) ; |A8D6| 
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\ Graphical Operations on BitMaps 
procedure ScrollRect 



procedure CopyBits 



(destRec t : 
dh.dv: 
updo teRgn : 

( srcB its. 
d s t B i t s : 
s r cRec t , 
dstRec t : 
mode : 
moskRgn : 



Rec tPtr ; 
i n tege r ; 
Hand le) ; 



Bi tMapPt r ; 

RectPt r ; 
i n tege r ; 
Hond le) ; 



ex ternol (-22289) ; lA8EF| 



external 



i Picture Routines 

function OpenPicture 

procedure C I oseP i c t u r e ; 

procedure DrawPicture 

procedure PicComment 

procedure KillPicture 
I The Bot t i eneck Inter 

procedure SetStdProcs 

procedure StdText 



( p i cF r ame : 
: Handle; 



RectPtr) 



procedure StdLine 
procedure StdRect 

procedure StdRRect 

procedure StdOval 
procedure StdArc 

procedure StdPoly 
procedure StdRgn 
procedure S tdB i t s 

procedure S tdCommen t 
function StdTxMeas 



(myP i c t ur e : 
dstRect : 

(ki nd. 
da t aS i ze : 
da taHond I e : 

(myP i c t u r e : 

face: 

( procs : 

( coun t : 
tex tAddr : 
nume r , 
denom: 

(newPt : 

( ver b : 
r : 

(verb: 
r : 
ovWd.ovHt : 

( ver b : 



Handle; 
RectPtr) ; 



integer; 
: Handle) : 

Handle) ; 



external 
ex te r no I 



external 
ex te r no I 



OOProcsPtr); external 

i n tege r ; 
MocPtr ; 



(verb: 
r : 

startAngle, 
arcAng I e : 

(verb: 
poly: 

(verb: 
r gn : 



FPoint) ; 

FPoi nt) ; 

i n teger 
RectPtr) 

i n tege r 
RectPtr ; 
i n tege r ) 

i n tege r 
RectPtr) 

i n t e g e r 
RectPtr ; 



sx t er no I 
*x te rna I 



5x t e r no I 
5x te r no I 



integer); external 

integer ; 

Hand le); external 



( srcB i ts 
srcRec t 
dxtRect 
mode : 
moskRgn 



i n teger ; 
Handle) ; 

Bi tMopPt r : 



RectPtr 
i n teger 
Hand le) 



(ki nd. 
do toS i ze : 
da toHond I e : 

( coun t : 
tex tAddr : 



i n tege r ; 
Handle) ; 

i n tege r ; 
MacPtr ; 



-22292); ^A8EC^ 



-I 



-22285) ; 
-22284) ; 



^A8F3i 
JA8F4| 



-22282); |A8F6i 



-22286); 
-22283) ; 



|A8F2l 



-22294); JA8EA| 



-22398) ; 
-22384) ; 



\A6B2l 
|A890l 



-22368); |A8A0| 



-22353) ; 
-22346) ; 

-22339) ; 
-22331) ; 
-22319) ; 



\AQAfl 
\A8Bel 

^A8B0| 
lA8C5| 
U8D1 I 



-22293); |A8EB| 



external (-22287) ; JA8F1| 
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procedure StdGetPic 

procedure StdPutPic 

J Mi sc Utility Rou t i nes 
function GetPixei 

f unc t ion Random 
procedure StuffHex 



numer , 
d e n om .• 
i n f : 
: I n t ege r ; 

(dataPt r : 
by teCoun t : 

(dotoP t r : 
by t eCoun t ; 



procedure ForeColor 
procedure BockColor 
procedure ColorBit 



Poi ntPt 
Font i nP 



WocPt r ; 
i n t eger 



WacP t r ; 
integer 



tr) 

); 
); 



external (-22291 ) ; 1a8ED| 
external (-22290) ; lASEE^ 
ex ternal (-22288) ; lA8F0^ 



(h.v: 

: MocBool 

: integer 

( thi ngPtr 



color: 
color: 
wh i chB i t : 



i n t ege r ) 

external (-22427) ; lA865| 

external (-22431 ) ; |A86l| 

MacPt r ; 

StringPtr); ex t e r no I (-22426 ) ; lA866| 

Longint); ex t e r no I (-22430) ; |A862|. 

Longint); ex t e r no I ( -22429 ) ; JA863| 

integer); ex t e rno I (-22428; ; |a864j 
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A. 22. Resource Manager (ResMgr) 



un i t ResMg r ; 

interface 

jUses MacCore^ 

1$L-| 

Uses 1$U MACCORE . COOE^ Maccore 

.const 

\ Resource Attribute bits ] 

resSysRef = 128 

resSysHeap = 64 

r esPu r geob I e «= 32 

restocked = 16 

r esP ro tec ted = 8 

resPr e I ood «= 4 

resChanged «= 2 

r esUse r = 1 



set if system reference | 

set i f read into Mac System heap I 

set if pu rgeab I e I 

set if locked I 

set if protected | 

set if to be preloaded I 

set if to be written to resource file 

available for use by your application 



\ Opening and Closing Resource Files 

PROCEDURE Creo teResF i I e ( filename: 



-I 



St r i ngPt r ) 
ex te r no 



FUNCTION OpenResFile 

PROCEDURE CloseResFile ( refnum 



f i I enome : 
i n t ege r ; 



Str i ngPt 
external 



integer) ; 

external 



I Checking for errors 

FUNCTION ResError : integer ; 

I Setting the Current Resource File 

FUNCTION CurResFiie : integer ; 

FUNCTION HomeResFile ( theResource: 
: integer ; 



PROCEDURE UseResFi le 



( 



\ Getting Resource Types 

FUNCTION CountTypes : integer ; 



PROCEDURE GetlndTypes ( 



t heTy pe : 
i ndex : 



I Getting and Disposing of Resources - 
PROCEDURE SetResLood ( load: 



FUNCTION CountResources( theType: 
: integer ; 



FUNCTION Get I ndResource ( 
FUNCTION GetResource ( 



theType : 
i ndex : 
Handle ; 

t heTy pe : 
thelD: 



external 



Handle) 
ex ter no I 

i n tege r ) 
ex ter no I 



OsTypeP t 
j n tege r ) 
external 



MacBoo I ) 
ex te r no I 

FOsType 
external 

FOsType 
i n tege r 
ex te r no I 

FOsType 
i n tege r 



-22095); ^A9B1| 
-22121); JA997| 
-22118); |A99A| 



-22097); JA9AF| 
1 

-22124); |A994| 

-22108); JA9A4| 

-22120); lA998| 
1 

-22114); JA99EI 
-22113); JA99F| 



-22117); jA99Bt 
-22116); |A99C| 

-22115); |A99D| 
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: Hand I e ; 

FUNCTION Ge tNamedResource ( theType: 

name ; 
: Handle ; 

PROCEDURE LoadResource ( theResource: 
PROCEDURE Re I easeResource ( theResource: 
PROCEDURE De tochResource ( theResource: 
\ Getting Resource Information • 



external (-221 12) ; |A9A0| 

FOsType ; 

Str i ngPtr ) 

externa! (-221 1 1 ) ; lA9A1| 

Handle ) ; 

ex ternol (-221 18) ; JA9A2| 

Handle ) ; 

ex ternol (-22109) ; JA9A3| 

Handle ) ; 

ex ternol (-22126) ; jA992i 



FUNCTION Unjqueld ( 
PROCEDURE GetReslnfo ( 



t heType : 
i n tege r ; 

t heResour ce ; 
theld: 
t heType : 
name : 



FUNCTION GetResAttrs ( theResource: 
: integer ; 

J Modifying Resources — — 

PROCEDURE SetReslnfo ( 



PROCEDURE SetResAttrs ( 

PROCEDURE ChangedResource ( 
PROCEDURE AddResource ( 

PROCEDURE RmveResource ( 
PROCEDURE RmveRef erence ( 
PROCEDURE AddReference ( 

PROCEDURE UpdateResFi le ( 

PROCEDURE Wr ! teResource ( 

PROCEDURE SetResPurge ( 

FUNCTION SizeResource ( 

: Long I n t 

I Advanced Routines 



FOsType ) 

external (-22079) ; JA9C1| 

Handle ; 

i n teger P t r ; 

OsTypePtr ; 

StringPtr ) ; 

external (-22104) ; jA9A8j 

Handle ) 

ex ternol (-22106) ; |A9A6| 



t heResou r ce : 
thelD: 
name : 


Handle ; 
i n teger ; 
S t r i ngP t r 
ex t e r no 1 (- 


-22103) ; 


JA9A9| 


theResource: 


Handle ; 






at t rs: 


i n teger ) 
ex ter no 1 (- 


-22105) : 


|A9A7| 


theResource : 


Handle ) 
externa! (- 


=22182) ; 


|A9AA| 


theOo to : 
theType : 
thelD: 
name : 


Handle ; 
FOsType ; 
i n tege r ; 
Str i ngPtr 
ex te r no 1 (- 


-22101) : 


|A9AB| 


theResource : 


Handle ) 
external (- 


-22099) ; 


JA9AD| 


theResource : 


Hondle ) 
external (- 


-22098) ; 


|A9AE| 


theResource : 
thelO: 
name : 


Handle ; 
i n tege r ; 
Str ingPtr 
ex ter na 1 (- 


) ; 

-22100) ; 


JA9ACI 


re f Numr 


i n tege r ) 
ex te rna 1 (- 


-22119) ; 


|A999| 


theResource : 


Handle ) 
external (- 


-22096) ; 


JA980^ 


install: 


MocBool ) 
ex te rna 1 (- 


-22125) ; 


|A993| 


theResource : 
t ; 


Handle ) 
ex ter no 1 (- 


-22107) ; 


\A9A5l 
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FUNCTION GetResF i I eAt t rs ( refNum: integer ) 

: integer ; e x t e r no I (-22026 ) ; JA9F6^ 

PROCEDURE SetResFi I eAt t rs ( refNum: . integer ; 

a t t r s : in t ege r ) ; 

ex ternal (-22025) ; ^A9F7| 
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unit Sc r apMg r ; 
interface 

\SL-l 

Uses )%U MACCORE .CODEI MacCore ; 

type 

PScrapS tuf f = MacP t r ; 
ScrapStuff «= RECORD 

scropSize: Longint ; 

SC r opHand I e -.'Hand I e ; 

scrapCount: integer ; 

scrapState: integer ; 

scrapName: StringPtr ; 
End ; 

\ Getting Scrap Information — • 1 

FUNCTION InfoScrap : PScrapStuff ; ex t e r no ! (-22023) ; ^A9F9| 

J Keeping the Scrap on the Desk — — — ] 

FUNCTION UnloadScrap : Longint ; ex t e r no I (-22022 ) ; |A9FA^ 

FUNCTION LoadScrop : Longint ; ex t e r no I (-2202 1 ) ; |A9FB| 

\ Reading from the Scrap — • — ■ 1 

FUNCTION GetScrop ( hDest: Handle ; 

theType: FOsType ; 

offset: LonglntPtr ) 

: Longint ; ex te r no I (-220 1 9 ) ; |A9F0| 

I Writing to the Scrap • ~| 

FUNCTION ZeroScrop : Longint ; ex t e r no I (-22020 ) ; |A9FC| 

FUNCTION PutScrap ( length: Longint ; 

« theType: FOsType ; 

source : MacP t r ) 

: Longint ; ex te r no ! (-220 1 8 ) ; |A9FE| 
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A. 24. Serial Driver (Serial) 



unit Se r i a I 



interface 



Uses ^$U MACCORE . CODE^ MacCore ; 

Cons t 

\ RefNums for the serial ports 
A i nRe f Num = —6 
AoutRefNum «= -7 
B i nRef Num «= -8 
BoutRefNum »= -9 

I baud rate constants I 



serial po r t A input I 

serial port A output I 

serial por t B input I 

serial po r t B ou t pu t \ 



baud300 


K 


380 


; 


baud600 


as 


189 ; 


baud1200 


B 


94 




baud1800 


SB 


62 




baud2400 


as 


46 




baud3600 


» 


30 




baud4800 


s 


22 




baud7200 


SB 


14 




baud9600 


» 


10 




baud19200 


>= 


4 ; 


baud57600 


= 


; 


\ sec chonnel 


c o n f i g u r 


stopl0 


« 


16384 


stopiS 


s: 


-32768 


stop20 


ss 


-16384 


noPar i ty 


IS 


8192 ; 


oddPar i ty 


- 


4096 ; 


evenPar i ty 


^ 


12288 


dotaS 


s: 


; 


do ta6 


ss 


2048 ; 


dota7 


m= 


1024 ; 


dataS 


«= 


307: 


? . 



\ serial driver error masks I 
swOverrunErr >= ; 
parityErr = 16 
hwOverrunErr = 32 
f r am i ngE r r »= 64 

I serial driver message constont I 
xOffWasSent «= 128 ; 



Type 



SerShk 


«= PACKED RE 


fCTS 


Byte 


fXon 


Byte 


xof f 


char 


xon : 


char 


ev ts 


Byte 


errs 


Byte 


nul 1 


Byte 


f InX 


Byte 


End : 





CTS flow control enable flag | 

XON flow control enable flog f 

XOFF character ] 

XON character \ 

event enable ma s k bits I 

errors mask bits ] 

unused \ 

Input flow control enable flog | 



SerStoRec = PACKED RECORD 
XOFFSent: Byte 
cumEr r s : By te 
wrPend: Byte 
rdPend: Byte 



XOFF Sent f i og I 
cumulative errors report | 
write pending flag I 
read pend i ng f I ag I 
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XOFFHold: Byte ; | XOFF flow control hold flog \ 

CTSHold: Byte ; \ CIS flow control hold flog I 

End ; 

\ Changing Serial Driver Information 

FUNCTION SerReset ( refNum: integer ; 

ser Con fig: in tege r ) 
: OsErr ; 



FUNCTION SerSetBuf ( refNum: integer ; 

serBP t r : MocP t r ; 

se r BLen : i n tege r ) 
: OsErr ; 

FUNCTION SerHShoke ( refNum: integer ; 

f I ogs: • SerShk ) 

: OsErr ; 

FUNCTION SerSetBrk ( refNum: integer ) 

: OsErr ; 

FUNCTION SerClrBrk ( refNum: integer ) 

: OsErr ; 



\ Getting Serial Driver Information 

"UNCTION SerGetBuf ( refNum: integer ; 

VAR count: LongInt ) 

: OsErr ; 

"UNCTION SerStatus ( refNum: integer ; 

VAR serSto: SerStoRec ) 

: OsErr ; 
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A. 25. Sound Driver (Sound) 



Unit Sound ; 

interface 

Uses 5$U MACCORE.CODEl MocCore ; 

Cons t 



SWmode 
FTmode 
FFmode 



Type 



Wove == PACKED ARRAY [0..255] of 8yte 
WavePt r = MacPt r ; 



PtrFTSndRec = MacPtr 






FTSoundRec = RECORD 




dura t i on : 




i n t ege r 




sound 1 Ra te : 




Long 1 n t 




soundl Phase : 




Long 1 n t 




sound2Rate: 




Long 1 n t 




sound2Phase : 




Long 1 n t 




sound3Ro te : 




Long 1 n t 




sound3Phase : 




Long i n t 




sound4Rate: 




Long t n t 




sound4Phase : 




Long 1 n t 




soundlWove : 




WaveP t r 




sound2Wave : 




WavePtr 




sound3Wave : 




WavePt r 




sound4Wave : 




WavePtr 




End ; 






PtrFTSynth 


MocPt 


r ; 


FTSynthRec = RECORD 




mode : 




i n tege r ; 


sndRec : 




PtrFTSndRec 


End ; 






Tone = RECORD 






count : 




i nteger 




amp 1 i t ude : 




i n t eger 




duration: 




i n tege r 




End ; 






Tones «= ARRAY[0 


.5000] of Tone ; 


PtrSWSynth -= MacPtr ; 




SWSynthRec -= RECORD 




mode : 




i n tege r ; 


triplets: 




Tones ; 


End : 









freeWave = PACKED ARRAY [ .. 30000] of Byte 



PtrFFSynthRec = MacPtr ; 

FFSynthRec *= RECORD 

mode: integer; 

coun t : Long 1 n t : 

waveBytes: freeWave 

End ; 



I FIXED Point 



\ Sound Driver Procedures 
PROCEDURE StortSound ( 



sy n t hRec : 



MocPtr 
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numBytes: Longint ; 

Async : Boo lean ) 

PROCEDURE StopSound ; 

FUNCTION SoundOone : Booleon ; 

PROCEDURE SetSoundVol ( level: integer ) 

PROCEDURE GetSoundVol ( VAR level: integer ) 
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A.26. ToolBox Utilities (TBoxUtils) 



uni t TBoxU t i I s ; 
interface 

Uses |$U MACCORE .CODEf MocCore , 

1$U OOTYPES.COOEi ODTypes ( Rec t P t r . Rec t , FPo i n t , Po i n t ) ; 

type 

F i xed = Long I n t ; 

Ptr lnt64Bi t = MocPtr ; 

lnt64Bi t = RECORD 

h i Long : Long I n t ; 

I oLong : Long I n t ; 
End ; 



\ Getting Application input file names 



PROCEDURE GetAppPorms ( 

\ Fixed Point Arithmetic - 
FUNCTION FixRotio ( 



apNome : 
apRe f Num 
opPorom : 



StringPtr ; 
i n tege r P t r ; 
MocPtr ) ; 
externol (-22027) ; 



|A9F5^ 



FUNCTION FixMul 

FUNCTION FixRound 

\ String Manipulation 
FUNCTION NewString 

PROCEDURE SetStr i ng 

FUNCTION GetString 

\ By t e Man i pu I a t i on 
FUNCTION Munger 



nume rotor : 
denom i no tor: 
Fixed ; 



( o . b 
: Fixed ; 



I n teger ; 



: S t r i ngHond I e ; 
( h: 



FUNCT ION Bi tTst 



PROCEDURE Bi tSet 



i n tege r ; 
i n t ege r ) 
ex ternal (-22423) ; |A869^ 

Fixed ) 

external (-22424) ; ^A868| 

Fixed ) 

external (-22420) ; |A86C| 



Str i ngPt r ) 
external (-22266) ; 

S t r i ngHond 1 e ; 
StringPtr ) ; 
external (-22265) ; 



|A907| 



( St r ingID: 


i n tege r 


) 




: Str i ngHond le ; 


externa 


(-22086) ; 


^A9BA? 

i 


( h: 


Hand 1 e 




l 


offset: 


Long 1 n t 






pt r 1 : 


MocPtr 






1 enl : 


Long 1 n t 


; 




ptr2: 


MocPtr 






1 en2: 


Long 1 n t 


) 




: Long 1 n t ; 


externa 


(-22048); 


\A9EBl 








? 


bt rings 






i 


( bytePtr: 


MocPtr 






b i t num: 


Long 1 n t 


) 




: MacBool ; 


external (-22435) ; 


|A85D| 


( bytePtr: 


MocPtr 






bi tNum: 


Long 1 nt 


) ; 
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PROCEDURE Bi tCI r 



ex ternol (-22434) ; |A85£| 

bytePtr: MocPtr ; 

b i t Num: Long I n t ) ; 

external (-22433) ; |A85Fi 



J Other Operations on Long Integers 
FUNCTION HiWord ( x; 



FUNCTION LoWord 



i n t ege r 



( 



i n t ege r ; 



PROCEDURE LongMul ( 



o . b 

des t : 



Long I n t ) 

ex ternal (-22422) ; |A86A| 

Long I n t ) 

ex ternol (-22421 ) ; JASSB^ 

Long I n t ; 

Pt r I nt64Bi t ) ; 

ex ternal (-22425) ; ^ABQll 



J Graph i cs Utilities — 
FUNCTION Getlcon 
PROCEDURE Plot Icon 

FUNCTION GetPattern 
FUNCTION GetCursor 
PROCEDURE ShieldCursor 



( i con I D : 
: Handle ; 

( theRect 
the I con 



( pat ID : 
: Handle ; 

( cu r sor I D : 
: Handle ; 

( shieldRect 
of f se tPt : 



FUNCTION GetPicture 
FUNCTION SlopeFrorTiAngle( 



( p i c ture I : 
: Handle ; 



Fi xed 



FUNCTION Angl eFromS I ope( slope: 
: integer ; 



FUNCT ION Del toPoint 



( ptA, pte 
: Long I n t ; 



i n t eger ) 

ex ternal (-22885) ; jA988i 

RectPtr ; 

Handle ) ; 

external (-22197) ; |A94Bi 

i n teger ) 

external (-22088) ; JA9B8^ 

i n t ege r ) 

external (-22887) ; |A989| 

RectPtr ; 

FPoint ) ; 

external (-22443) ; JASSS^ 

i n tege r ) 

external (-22084) ; ^A9BCi 

i n teger ) 

ex ternol (-22340) ; |A88C| 

Fixed ) 

external (-22332) ; JA8C4| 

FPoint ) 

external (-22193) ; |A94F| 
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A.27. ToolBox Types (TBTypes) 



unit TBTypes ; 

i n t e r face 

iUses MocCore, ODTypes^ 

f$L-| 

Uses |$U MACCORE.CODE MacCore. 

J$U QDTYPES.CODEI ODTypes ( Po i n t , VHSe I ec t , G r a f Po r t , G r a f P t r , 

Rect) ; 

type 

\ The following Ptrs ore used for passing voriobles by ADDRESS. I 

~ ■" "■ ~" ' Pointer to EventRecord \ 

Pointer to WindowRecord | 

Pointer to TERec l 



EvtRecPtr 


« 


MocPtr ; 




WindowPt r 


« 


MocPtr : 


TEPtr 


= 


MacPtr ; 


J Event Monag 


e r 


Record l 


EventRecord = 


RECORD 


what : 


i 


n t ege r ; 


message : 


L 


ong 1 n t ; 


when 


L 


ong 1 n t ; 


where : 


P 


o i n t ; 


mod i f i e r s : 


i 


n t ege r ; 


End ; 






\ Wi ndow Mono 


ger Record ] 


Wi ndowHond 1 e 


ss 


MocPtr ; 


W i ndowRecor d 


s: 


packed record 


por t : 




Graf Por t ; 


w i ndowK i nd : 




i nteger ; 


hi 1 i ted: 




Smo 1 1 Boo 1 




visible: 




Sma 1 t Boo 1 




spar eP 1 og : 




Smo 1 1 Boo 1 




goAwayPlog : 




Sma 1 1 Boo 1 




s t r ucRgn : 




Handle; 


con tRgn : 




Handle; 


updo teRgn : 




Hand 1 e; 


w i ndowDe f P roc 


: Handle; 


da toHand 1 e : 




Handl e ; 


t i t leHand 1 e 




Handle; 


t i t leWidth: 




i n t ege r ; 


con t ro 1 L i s t 




Hand 1 e ; 


nex tWi ndow : 




MocPtr ; 


w i ndowP i c : 




Handle; 


ref Con : 




Long 1 n t ; 


end ; 






\ TextEdi t Record \ 


TEHondle 


» 


Handle ; 


TERec ^ RECORD 




destRec t : 




Rect ; 


V i ewRec t : 




Rect ; 


1 i neHe i gh t : 




i n tege r 


f i rstBL: 




i n tege r 


selStar t : 




1 n tege r 


selEnd: 




integer 


just: 




i n tege r 


! eng t h : 




i n tege r 


hText: 




Handl e 


txFont : 




i n tege r 


t xFoce : 




i n tege r 


txMode: 




i n tege r 


txSize: 




i nteger 


i nPor t : 




GrofPt r 


crOn 1 y : 




i n teger 


nLi nes : 




i nte< 


3er 



; destination rectangle ] 
V i ew rec tong I e I 
f i ne he i gh t I 

position of first baseline | 
start of selection range I 
end of selection | 
justification I 
I eng th of text I 
text to be edited | 
text font I 
character style I 
pen mode \ 
type size I 
grafPort I 

new line at Return if < | 
number of lines | 
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lineStarts: ARRAY [0. .32000] of Integer ; 

I positions of line starts 
\ other fields for Mac O.S. Internal use only | 
End ; 
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A.28. Text Edit (TextEdit) 



uni t TextEdi t ; 

i n t er f ace 

uses |$U MACCORE.CODE| MacCore , 

|$U ODTYPES.CODES ODTypes (GrafPort, GrafPtr. Point. VHSelect. 

FPoint, Rect, RectPtr). 
\%\J TBTYPES .CODE J TBTypes (EvtRecPtr. Even t Reco r d , w i ndow r eco r d . 

wi ndowptr .windowhondle. TEHandle, 

TEPtr.TERec) ; 

cons t 

teJus tLef t = 6 ; 

teJustCenter = 1 ; 

teJustRight = - 1 r 



type 



Oho r sHand I e 
Char sP t r 
Chars 



Handle ; 
MocPtr ; 
PACKED ARRAY [0.. 32008 



OF char 



J Initialization 

FUNCTION TENew 

\ Manipulating Edit Reco 
PROCEDURE TESetText 



FUNCTION TEGetText 
PROCEDURE TEDisPose 



-I 



\ Editing 

PROCEDURE TEKey 

PROCEDURE TECut 
PROCEDURE TECopy 
PROCEDURE TEPoste 
PROCEDURE TEDelete 
PROCEDURE TElnsert 



Selection Range and Justification 



des tRec t 
V i ewRec t 
TEHandle ; 



Text : 
I eng t h 
hTE : 



hTE : 
Cho r sHand I e 



RectPtr ; 
RectPtr ) 
ex ternal (-22062) ; |A9D2| 

1 



MacPtr ; 

Long I n t ; 

TEHandle ) ; 

ex ternal (-22065) ; |A9CF| 

TEHandle ) 

ex ternal (-22069) ; JA9CB| 

TEHandle ) ; 

external (-22067) ; |A9CD| 



key : 
hTE : 


char ; 
TEHondl e 
externa) ( 


) : 
-22052) ; 


^A9DC 


hTE : 


TEHandle 
ex t e r no 1 ( 


) ; 
-22058); 


1A9D6 


hTE : 


TEHandle 
ex te rna ! ( 


) ; 

-22059); 


1A9D5 


hTE : 


TEHandle 
ex ternal ( 


-22053); 


JA9DB 


hTE : 


TEHandle 
external ( 


) ; 

-22057); 


^A9D7 


text : 


MocPtr ; 






1 eng th : 
hTE : 


Long 1 n t 
TEHandle 
ex te rna I ( 


) ; 

-22050) ; 


JA9DE 



1200301:0AB 



A-79 



M.4CINT0SH INTERFACE Appendix A 



PROCEDURE TESetSelect ( selStart : Longint ; 

se I End : Long I n t ; 
hTE : TEHandle ) ; 

external (-22063) ; |A901| 

PROCEDURE TESetJust ( j : integer ; 

hTE : TEHandie ) ; 

ex ternol (-22049) ; ^A90F| 

\ Mice ond Carets • ■ | 

PROCEDURE TECIick ( pt : FPoint ; 

extend : MocBoo I ; 

hTE : TEHandie ) ; 

ex terno! (-22060) ; |A9D4J 

PROCEDURE TEldle ( hTE : TEHandie ) ; 

ex ternol (-22054) ; |A9DA| 

PROCEDURE TEActivate ( hTE : TEHandie ) ; 

ex ternol (-22056) ; |A9D8| 

PROCEDURE TEDeoctivote ( hTE ; TEHandie ) ; 

ex ternol (-22055) ; ^A9D9| 

\ Text Display ■ ' ■ — ^ 1 

PROCEDURE TEUpdate 



PROCEDURE TextBox 



I Advonced Routines 
=>ROCEDURE TEScrol I 



PROCEDURE TEColText 



( 


rUpdote : 
hTE : 


ReclPtr ; 
TEHandie ) ; 
external (-22061 ) ; 


-|A9D3 


( 


tex t : 


MocPtr ; 






length : 
box : 


Longint ; 
RectPtr ; 






style : 


i n t ege r ) ; 
external (-22066) ; 


|A9CE 


( 


dh , dv : 
hTE : 


integer ; 
TEHandie ) ; 
external (-22051 ) ; 


|A90D 


( 


hTE : 


TEHandie ) ; 





ex ternol (-22064) ; JA9D0| 
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A. 29. Wlndo^v Manager (WindcwMgr) 



Uni t Wi ndowMgr ; 

I n ter f ace 

5Uses MocCore, OdTypes. TbTypes^ 

uses |$U MACCORE.CO0E| MocCore , 

S$U ODTYPES. CODEi ODTypes (GrofPort, GrofPtr. Point, VHSe I ec t . 

FPo int. Rec t , Rec tPtr ) , 
\$U TBTYPES . CODEl TBTypes (EvtRecPtr. Eve n t Recor d . w i ndow reco r d . 

w i ndowp t r , w i ndowhond I e ) ; 

cons t 

\ types of w i ndows I 

dial ogK i nd = 2 ; 
userKind =8; 

\ window definition procedure IDs I 



DocumentProc = 0; 

DBoxProc = 1 : 

plainOBox = 2 

al tDBoxProc « 3 

noGr owDocP roc = 4 

ROocProc = 16 



I FindWindow result codes I 



i nDe s k 

i nMenuBor 

i nSy sW i ndow 

i nCon ten t 

i nDr og 

i nGr ow 

i nGoAway 



« 1 

= 2 

= 3 

= 4 

« 5 

= 6 



\ 



hit test codes 



wNoHi t 
w I nCon tent 
w I nD r ag 
w I nOr ow 
w I nOoAwoy 



\ Window Messages I 



wDr ow 

wHi t 

wCa I cRgns 

wNew 

wD i spose 

wGr ow 

wDr owG I con 



- 1 
= 2 

- 3 
= 4 
= 5 
« 6 



Axis constraints for DrogGroyRgn col 



bo t hAxes 
hAx sOn I y 
vAxsOn I y 



= 1 
= 2 



I Initio! izotion and Allocation 

procedure GetWMgrPort (wPort: MocPtr); 
function NewWindow (wStorage: MocPtr; 



1 

ex ternal (-22256) ; JA910| 
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function Ge t NewW i ndow 



procedure CloseWindow 
procedure D i sposeW i ndow 



boundsRec t ;Rec tPt r ; 

title: S t r i ngPt r ; 

visible: MocBoo I ; 

t heP r oc : in tege r ; 

beh i nd : MocP t r ; 
goAwayF I ag : MacBoo I ; 

re f Con : Long I n t ) 

: Wi ndowP t r ; 

(windowlD; integer; 

wS to rage : MocP t r ; 

behind: MocPtr) 

: WindowPtr ; 

( theWi ndow: Wi ndowP t r ) 

theWindow: WindowPtr) 



ex ternol (-22253) ; ^A913| 



external (-22083) ; lA9BD| 



external (-22227) ; 
external (-22252) ; 



|A92D| 
Sa91 41 



\ Window Display — - 
procedure SetWTitle 

procedure GetWTitle 



procedure SelectWindow 

procedure HideWindow 

procedure ShowWindow 

procedure ShowHide 



procedure Hi I i teWindow 

procedure BringToFront 

procedure SendBehind 

function FrontWindow 

procedure DrawGrowlcon 

\ Mouse Location 

function FindWindow 



( theWi ndow; Wi ndowP t r ; 

title: StringPtr ) ; e x t e r no I (-22246 ) ; ^A91A| 

(theWindow: WindowPtr ; 

title: StringPtr); ex t e r no I (-22247 ) ; JA919^ 



(theWindow: WindowPtr 

( theWi ndow: Wi ndowP t r 

( theWi ndow: Wi ndowPt r 

(theWindow: WindowPtr 

showFlog: MocBool); 

( theWi ndow: Wi ndowP t r 

fHi i i te: MacBool ) ; 



e X t e r na i 
external 
external 



(-22241 ) 
(-22250) 
(-22251 ) 



|A91F| 
|a916| 
iA915l 



ex ternol (-22264) ; JA908| 



ex ternol (-22244) ; 

(theWindow: WindowPtr ) ; ex t e r no I (-22240) ; 

(theWindow: WindowPtr ; 
be hi ndWi ndow: Wi ndowP t r);external(-22239); 

: WindowPtr ; ex t e r na I (-22236 ) ; 

(theWindow: WindowPtr ) ; e x t e r no i (-22268 ) ; 



lA91Cf 
|A920| 

; \A92^l 
lA924^ 
fA904| 

1 



function TrackGoAway 



i W i ndow . Movemen t and Si 
procedure MoveWindow 



>roC€dur€ DrogWindo^ 



'unction GrowWindOMv 



procedure SizeWindow 



(thePt: FPoint; 
whichWindow: WindowPtr ) 
: i n tege r ; 

(theWindow: WindowPtr ; 

thePt: FPoint) 
: Mac Boo t ; 



I z i ng 

(theWindow: WindowPtr ; 
hGlobal , 

vG I obo I : i n t ege r ; 

front: MocBoo I ) ; 

(theWindow: WindowPtr ; 
s tor tP t : FPo i nt ; 
boundsRect:RectPtr); 

(theWindow: WindowPtr ; 

star tP t : FPo int ; 

sizeRect: RectPtr) 
: Long Int; 

(theWindow: WindowPtr ; 
w , h : in tege r ; 
f Updo te: MocBoo I ) ; 



externa! (-22228) ; |A92Ci 

external (-22242) ; |A91E| 
_ ____ I 



ex ternol (-22245) ; 1A91S| 

external (-22235) ; |A925| 

external (-22229) ; lA92B| 

external (-22243) ; |A91D| 



A-82 



1200301:0AB 



Window Manager (WindowMgr) 



\ Update Region Maintenance 



-I 



procedure InvolRect 

procedure I nva I Rgn 

procedure ValidRect 

procedure ValidRgn 

procedure BeginUpdate 

procedure EndUpdate 

\ Miscellaneous Utilities 



f badRec t : 
I badRgn : 
(goodRect: 
(goodRgn : 
( theWi ndow; 
( theWi ndow: 



Rec tPt r ) ; 
Hand! e) ; 
Rec tPt r ) ; 
Hondie) ; 
Wi ndowPt r } 
Wi ndowPt r ) 



ex ternal (-22232) 
ex ternal (-22233) 
ex terna 1 (-22230) 
ex terna I (-22231 ) 
ex ternal (-22238) 
external (-22237) 



A928 
' A927 
A92A 
A929 
A922 
A923 



procedure SetWRefCon 

f unct ion Ge tWRe fCon 

procedure SetWindowPic 

function Ge tW i ndowP i c 

f unc t 1 on Pi nRec t 

function DrogGrayRgn 



\ Low-Level Routines - 
function CheckUpdate 



( theWi ndow; Wi ndowPt r ; 

data: Long I n t ) ; 

(theWindow: WindowPtr ) 
: Long I n t ; 

( theWi ndow: W i ndowPt r ; 

pic: Hond I e ) ; 

(theWindow: WindowPtr ) 
: Handle; 



RectPt r ; 
FPoint) 



( theRect : 

thePt : 
: L o n g I n t ; 



( theRgn : 

star tPt : 

limi tRec t 

s I opRec t : 

axis: 

act ionProc :ProcPtr 
: Long I n t ; 



Handle; 
FPo i nt ; 

RectPt r ; 
i n t e g e r ; 



ex terna I (-22248) ; 1A918^ 

ex ternal (-22249) ; \A9Ml 

ex ternal (-22226) ; lA92E| 

ex ternal (-22225) ; |A92F| 

ex ternal (-22194) ; \A9A-El 



ex ternal (-22267) ; \A9d5l 



-I 



(theEvent: EvtRecPtr) 
: MacBoo t ; 



procedure ClipAbove 

procedure PointOne 

procedure PointBehind 

procedure SaveOld 

procedure DrowNew 

procedu re Co I cV i s 

procedure ColcVi sBehi nd 



( w i ndow 



Wi ndowPt r ) 



(window: WindowPtr ; 
clobbered: Handle); 

(star tWi ndow:Wi ndowPt r ; 
clobbered: Handle); 

(window: WindowPtr); 

(window: WindowPtr ; 
update: MacBool); 

(window: WindowPtr); 

( star tWi ndow:Wi ndowPt r ; 
clobbered: Handle); 



ex ternal (-22255) ; lA9n| 

ex ternal (-22261 ) ; lA90B| 

ex ternal (-22260) ; JA90C| 

ex ternal (-22259) ; |A90D| 

ex ternal (-22258) ; JA98E| 

ex ternal (-22257) ; |A90F| 

ex ternal (-22263) ; lA989| 

ex ternal (-22262) ; |A90A| 
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ERROR MESSAGES 



B.l. Program Startup Errors 

Could not open p— machine file 

Could not allocate memory for p— machine 

Error reading p— machine file 

Could not locate MSTR resource 

Could not open program data fork 

Could not open Runtime Support Library file 

Could not allocate stack/heap 

I/O error while booting 

Memory allocation error while booting 

Error reading segment dictionary 

Error reading library 

Required unit not found 

Duplicate unit 

Too many library code files referenced 

Too many system units referenced 

No program in code file to execute 

Program or unit must be linked first 

Obsolete code segment 

Insufficient memory to construct environment 

Program environment too complicated: run QUICKSTART first 

Error reading program code file 

Error reading library code file 

Insufficient memory to allocate data segment 

Insufficient memory to load fixed position segment 

Unknown environment construction error 
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B.2. Execution Errors 

Fatal runtime support error 

1 Value range error 

2 No proc in segment table 

3 Exit from uncalled proc 

4 Stack overflow 

5 Integer overflow 

6 Division by zero 

7 Invalid memory reference 

8 Program interrupted by user 

9 Runtime support I/O error 

10 I/O Error: 

11 Unimplemented instruction 

12 Floating point error 

13 String overflow 

14 Programmed halt 

15 Illegal heap operation 

16 Break point 

17 Incompatible real number size 

18 Set too large 

19 Segment too large 

20 Heap expansion error 

21 Insufficient memory to load code segment 
^98 Unknown I/O Error # 

99 Unknown runtime support error 
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B.3. I/O Errors 






No error 


-17 


Control error 


-18 


Status error 


-19 


Read error 


-20 


Write error 


-21 


Bad unit 


-22 


Unit empty 


-23 


Open error 


-24 


Close error 


-25 


Driver removal error 


-26 


Driver resource not found 


-27 


Cancelled I/O operation 


-28 


Driver not open 


-33 


Directory full 


-34 


Disk full 


-35 


No such volume mounted 


-36 


Data transfer error 


-37 


Bad file name 


-38 


File not open 


-39 


End of file 


-40 


File positioning error 


-41 


Insufficient memory for file operation 


-42 


Too many files open 


-43 


File not found 


-44 


Diskette is write protected 


-45 


File is locked 


-46 


Volume is locked 


-47 


File is in use and cannot be deleted 


-48 


Duplicate file name 


-49 


File already open with write permission 


-50 


Invalid file operation parameter list 


-51 


Invalid file reference number 


-52 


Error establishing file position 


-53 


Mounted volume not on line 


-54 


Invalid file open permissions 


-55 


Volume already on line 


-56 


Invalid drive number 


-57 


Not a Macintosh diskette 


-58 


Not a Macintosh volume 


-59 


Directory corrupted by file system 


-60 


Bad master directory block 
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— 61 Write permissions error 
—64 Drive not installed 

— 65 Drive not on line 
— 1024 Bad input format 
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B.4. Syntax Errors 

1 Error in simple type 

2 Identifier expected 

3 unimplemented error 

4 ')' expected 

5 ': expected 

6 This symbol is illegal in this context 

7 Error in parameter list 

8 'OF' expected 

9 '(' expected 

10 Error in type 

11 '[' expected 

12 ']' expected 

13 'END' expected 

14 Semicolon expected 

15 Integer expected 

16 '=' expected 

17 'BEGIN' expected 

18 Error in declaration part 

19 Error in <field-list> 

20 '.' expected 

21 '*' expected 

22 'INTERFACE' expected 

23 'IMPLEMENTATION' expected 

24 'UNIT' expected 

49 Case label out of range 

50 Error in constant 

51 ':=' expected 

52 'THEN' expected 

53 'UNTIL' expected 

54 'DO' expected 

55 'TO' or 'DOWNTO' expected in for statement 

56 'IF' expected 

57 'FILE' expected 

58 Error in < factor > (bad expression) 

59 Error in variable 

60 Must be of type 'SEMAPHORE' 

61 Must be of type 'PROCESSID' 

62 Process not allowed at this nesting level 

63 Only main task may start processes 

101 Identifier declared twice 

102 Low bound exceeds high bound 
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103 Identifier is not of the appropriate class 

104 Undeclared identifier 

105 Sign not allowed 

106 Number expected 

107 Incompatible subrange types 

108 File not allowed here 

109 Type must not be real 

110 <tagfie]d> type must be scalar or subrange 

111 Incompatible with <tagfield> part 

112 . Index type must not be real 

113 Index type must be a scalar or a subrange 

114 Base type must not be real 

115 Base type must be a scalar or a subrange 

116 Error in type of standard procedure parameter 

117 Unsatisified forward reference 

118 Forward reference type identifier in variable declaration 

119 Re—specified params not OK for a forward declared procedure 

120 Function result type must be scalar, subrange or pointer 

121 File value parameter not allowed 

122 A forward declared function's result type can't be re—specified 

123 Missing result type in function declaration 

124 F— format for reals only 

125 Error in type of standard function parameter 

126 Number of parameters does not agree with declaration 

127 Illegal parameter substitution 

128 Result type does not agree with declaration 

129 Type conflict of operands 

130 Expression is not of set type 

131 Tests on equality allowed only 

132 Strict inclusion. not allow-ed 

133 File comparison not allowed 

134 Illegal type of operand(s) 

135 Type of operand must be Boolean 

136 Set element type must be scalar or subrange 

137 Set element types must be compatible 

138 Type of variable is not array 

139 Index type is not compatible with the declaration 

140 Type of variable is not record 

141 Type of variable must be file or pointer 

142 unimplemented error 

143 Illegal type of loop control variable 

144 Illegal type of expression 

145 Type conflict 
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146 Assignment of files not allowed 

147 Label type incompatible with selecting expression 

148 Subrange bounds must be scalar 

149 Index type must be integer 

150 Assignment to standard function is not allowed 
15J Assignment to formal function is not allowed 

152 No such field in this record 

153 Illegal type of parameter for READ 

154 Actual parameter must be a variable 

155 Control variable cannot be formal or non— local 

156 Multidefined case label 

157 Too many cases in case statement 

158 No such variant in this record 

159 Real or string tagfields not allowed 

160 Previous declaration was not forward 

161 Again forward declared 

162 Parameter size must be constant 

163 Missing variant in declaration 

164 Substition of standard proc/func not allowed 

165 Multidefined label 

166 Multideclared label 

167 Undeclared label 

168 Undefined label 

169 Error in base set 

170 Value parameter expected 

171 Standard file was re— declared 

172 Undeclared external file 

173 Fortran procedure or function expected 

174 Pascal function or procedure expected 

175 Semaphore value parameter not allowed 

176 Undefined forward procedure 

182 Nested units not allowed 

183 External declaration not allowed at this level 

184 External declaration not allowed in INTERFACE section 

185 Segment declaration not allowed in INTERFACE section 

186 Labels not allowed in INTERFACE section 

187 Attempt to open library unsuccessful 

188 Unit not declared in previous USES 

189 'USES' not allowed at this nesting level 

190 Unit not in library 

191 Forward declaration was not segment 

192 Forward declaration was segment 

193 Not enough room for this operation 
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194 Flag must be declared at top of program 

195 Unit not importable 

201 Error in real number — digit expected 

202 String constant must not exceed source line 

203 Integer constant exceeds range 

204 8 or 9 in octal number 

250 Too many scopes of nested identifiers 

251 Too many nested procedures or functions 

252 Too many forward references of procedure entries 

253 Procedure too long 

254 Too many long constants in this procedure 

256 Too many external references 

257 Too many externals 

258 Too many local files 

259 Expression too complicated 

300 Division by zero 

301 No case provided for this value 

302 Index expression out of bounds 

303 Value to be assigned is out of bounds 

304 Element expression out of range 

305 Maximum segment number exceeded 

306 Unit name same as program name 

307 Unit name declared twice 

308 Invalid array bounds 

309 Bounds may not be of type real 

310 Only one dimension may be conformant 

311 Must be a variable parameter 

312 Must be a conformant array 

313 Segment declaration not permitted here 

314 PROCEDURE, FUNCTION or PROCESS expected 

315 HOST call not permitted here 

316 May not be formal procedure 

317 May not be formal parameter 

318 Invalid file type 

319 Must be an untyped file 

320 Segment entry not found 

321 May not be a conformant array index bound 

322 Must be a string constant 

323 Must be a variable 

324 Must be a declared procedure 

325 May not call the main program 

326 May not be an expression 

327 Maximum code size exceeded 
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328 May not be a conformant array 

329 Structured type too large 

330 Too many array elements 

331 Inline procedure or function not allowed here 

333 Must be declared EXTERNAL to have untyped parameters 

398 Implementation restriction 

399 Illegal language construction or internal compiler error 

400 Illegal character in text 

401 Unexpected end of input 

402 Error in writing code file, not enough room 

403 Error in reading include file 

404 Error in writing list file, not enough room 

405 'PROGRAM' or 'UNIT' expected 

406 Include file not legal 

407 Include file nesting limit exceeded 

408 INTERFACE section not contained in one file 

409 Unit name reserved for system 

410 Disk file read or write error 
500 Assembler Error 
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e 


00 


SLDC 





Shor 


Lood 


Word 


Cons tan t 


1 


01 


SLDC 


1 


Shor 


Load 


Word 


Cons t an t 


2 


02 


SLDC 


2 


Shor 


Load 


Word 


Cons tan t 


3 


03 


SLDC 


3 


Shor 


Load 


Word 


Cons tant 


4 


04 


SLDC 


4 


Shor 


Load 


Word 


Cons tan t 


5 


05 


SLDC 


5 


Shor 


Load 


Word 


Cons tan t 


6 


06 


SLDC 


6 


Shor 


Load 


Word 


Cons t an t 


7 


07 


SLDC 


7 


Shor 


Load 


Word 


Cons ton t 


8 


08 


SLDC 


8 


Shor 


Load 


Word 


Cons ton t 


9 


09 


SLDC 


9 


Shor 


Load 


Word 


Cons tan t 


10 


0A 


SLDC 


10 


Shor 


Load 


Word 


Cons tan t 


1 1 


0B 


SLDC 


1 1 


Shor 


Load 


Word 


Cons tan t 


12 


0C 


SLDC 


12 


Shor 


Load 


Word 


Cons tant 


13 


0D 


SLDC 


13 


Shor 


Load 


Word 


Cons tan t 


14 


0E 


SLDC 


14 


Shor 


Load 


Word 


Cons tan t 


15 


0F 


SLDC 


15 


Shor 


L Load 


Word 


Cons tan t 


16 


10 


SLDC 


16 


Shor 


Load 


Word 


Cons tan t 


17 


1 1 


SLDC 


17 


Shor 


Load 


Word 


Constant 


18 


12 


SLDC 


18 


Shor 


Load 


Word 


Cons ton t 


19 


13 


SLDC 


19 


Shor 


Load 


Word 


Cons tant 


20 


1 4 


SLDC 


20 


Shor 


Load 


Word 


Cons t an t 


21 


15 


SLDC 


21 


Shor 


Load 


Word 


Cons t on t 


22 


16 


SLDC 


22 


Shor 


Lood 


Word 


Cons tan t 


23 


17 


SLDC 


23 


Shor 


Load 


Word 


Cons tant 


24 


18 


SLDC 


24 


Shor 


Load 


Word 


Cons tant 


25 


19 


SLDC 


25 


Shor 


Load 


Word 


Cons tant 


26 


1 A 


SLDC 


26 


Shor 


Load 


Word 


Cons tant 


27 


IB 


SLDC 


27 


Shor 


Load 


Word 


Conston t 


28 


1C 


SLDC 


28 


Shor 


Load 


Word 


Cons ton t 


29 


ID 


SLDC 


29 


Shor 


Load 


Word 


Cons tan t 


30 


IE 


SLDC 


30 


Shor 


Load 


Word 


Cons t an t 


31 


IF 


SLDC 


31 


Shor 


Lood 


Word 


Cons t an t 


32 


20 


SLDL 


1 


Shor 


Load 


Loco 


Word 


33 


21 


SLDL 


2 


Shor 


Load 


Loco 


Word 


34 


22 


SLDL 


3 


Shor 


Load 


Loco 


Word 


35 


23 


SLDL 


4 


Shor 


Load 


Loco 


<Word 


36 


24 


SLDL 


5 


Shor 


Load 


Loco 


Word 


37 


25 


SLDL 


6 


Shor 


Load 


Loco 


Word 


38 


26 


SLDL 


7 


Shor 


Load 


Loco 


Word 


39 


27 


SLDL 


8 


Shor 


Load 


Loco 


Word 


40 


28 


SLDL 


9 


Shor 


Load 


Loco 


Word 


41 


29 


SLDL 


10 


Shor 


Load 


Loca 


Word 


42 


2A 


SLDL 


1 1 


Shor 


Load 


Loco 


Word 


43 


28 


SLDL 


12 


Shor 


Load 


Loco 


Word 


44 


2C 


SLDL 


13 


Shor 


Load 


Loca 


Word 


45 


20 


SLDL 


14 


Shor 


Load 


Loco 


Word 


46 


2E 


SLDL 


15 


Shor 


Load 


Loca 


Word 


47 


2F 


SLDL 


16 


Shor 


Load 


Loco 


Word 


48 


30 


SLOO 


1 


Shor 


Load 


Global Word 


49 


31 


SLDO 


2 


Shor 


Load 


Global Word 


50 


32 


SLOO 


3 


Shor 


Load 


Global Word 


51 


33 


SLDO 


4 


Shor 


Load 


Global Word 


52 


34 


SLOO 


5 


Shor 


Load 


Global Word 
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53 


35 


SLD0:6 


Shor 


Load 


Global Word 


54 


36 


SLD0:7 


Shor 


Load 


Global Word 


55 


37 


SLD0:8 


Shor 


Load 


Global Word 


56 


38 


SLD0:9 


Shor 


Load 


Global Word 


57 


39 


SLDO: 10 


Shor 


Lood 


Global Word 


58 


3A 


SLDO: 1 1 


Shor 


Load 


Global Word 


59 


3B 


SLDO: 12 


Shor 


Load 


Global Word 


60 


3C 


SLOO: 13 


Shor 


Lood 


Global Word 


61 


30 


SLDO: 1 4 


Shor 


Load 


Globo! Word 


62 


3E 


SLDO: 15 


Shor 


Load 


Global Word 


63 


3F 


SLDO: 16 


Shor 


Load 


Global Word 


64 


40 


SSTP 


Shor 


Store Packed 


65 


41 


SLDCD:0 


Shor 


Load 


Ooubleword Constant Zero 


66 


42 


SLDLD: 1 


Shor 


Load 


Loco 1 Doub 1 ewo r d 


67 


43 


SLOLO: 2 


Shor 


Load 


Loco! Ooubleword 


68 


44 


SLDL0:3 


Shor 


Load 


Loco 1 Doub 1 ewo rd 


69 


45 


SLDL0:4 


Shor 


Load 


Loco i Doub 1 ewor d 


70 


46 


SLDLD: 5 


Shor 


Load 


Loco 1 Doub 1 ewo r d 


71 


47 


SLDLD:6 


Shor \ 


Load 


Local Doubleword 


72 


48 


SLOOD: 1 


Shor 


Lood 


Global Doubleword 


73 


49 


SLDO0:2 


Shor 


Load 


G 1 obo 1 Doub 1 ewor d 


74 


4A 


SLDO0:3 


Shor 


Load 


G 1 obo 1 Doub 1 ewor d 


75 


48 


SLOOD: 4 


Shor 


Load 


G 1 oba 1 Doub I ewo r d 


76 


4C 


SLD0D:5 


Shor 


Load 


Global Doubleword 


77 


40 


SL0O0:6 


Shor 


Load 


G 1 oba 1 Doub 1 ewor d 


78 


4E 


SLD0D:7 


Shor 


Load 


G 1 obo 1 Doub 1 ewor d 


79 


4F 


SL000:8 


Shor 


Lood 


G i oba 1 Doub 1 ewor d 


80 


50 


SINOD:0 


Shor 


1 nde> 


and Load Doubleword 


81 


51 


S INOD: 1 


Shor 


1 nde> 


and Load Doubleword 


82 


52 


SiNDD:2 


Shor 


1 ndex 


and Load Doubleword 


83 


53 


SiN00:3 


Shor 


1 nde> 


and Load Doubleword 


84 


54 


SIN00:4 


Shor 1 


1 nde> 


and Load Doubleword 


85 


55 


SIN00:5 


Shor 


1 nde> 


and Load Doubleword 


86 


56 


SINDD:6 


Shor 


i nde> 


and Load Doubleword 


87 


57 


S!N0D:7 


Shor 


! nde> 


and Lood Doubleword 


88 


58 


LDLO 


Lood 


Loco 1 


Doub 1 eword 


89 


59 


LODD 


Load 


Intermediate Ooubleword 


90 


5A 


LDOO 


Lood 


GLobo 


Doub 1 eword 


91 


58 


LOEO 


Load 


Externa! Doubleword 


92 


5C 


INOD 


Load 


Indirect Doubleword 


93 


50 


STLO 


Stor« 


» Loco 


Doub 1 ewo r d 


94 


5£ 


STRO 


Stor€ 


i Intermediate Doubleword 


95 


5F 


SROO 


Stor* 


i G 1 obo 1 Doub 1 ewor d 


96 


60 


SLLA: 1 


Shor 


Load 


Local Address 


97 


61 


SLLA:2 


Shor 


Load 


Locol Address 


98 


62 


SLLA: 3 


Shor 


Load 


Loco! Address 


99 


63 


SLLA: 4 


Shor 


Load 


Local Address 


100 


64 


SLLA:5 


Shor 1 


Load 


Loco! Address 


101 


65 


SLLA: 6 


Shor 


Load 


Local Address 


102 


66 


SLLA: 7 


Shor 


Load 


Local Address 


103 


67 


SLLA: 8 


Shor 


Load 


Local Address 


104 


68 


SSTL: 1 


Shor 


Store Loco 1 Word 


105 


69 


SSTL:2 


Shor 


Store Locol Word 


106 


6A 


SSTL:3 


Shor 


Store Loco t Word 


107 


6B 


SSTL:4 • 


Shor 1 


Store Locol Word 


108 


6C 


SSTL:5 


Shor 


Store Local Word 


109 


60 


SSTL: 6 


Shor 


Store Local Word 


110 


6E 


SSTL:7 


Shor 


Store Loco i Word 


1 1 1 


6F 


SSTL:8 


Shorl 


Store Local Word 


112 


70 


SCXG: 1 


Shor 


Cal 1 


External Global Procedure 


113 


71 


SCXG:2 


Shor 


Cal 1 


External Global Procedure 


1 1 4 


72 


SCXG: 3 


Shor 


Col 1 


External Global Procedure 


115 


73 


SCXG: 4 


Shor 


Col ! 


External Global Procedure 


1 16 


74 


SCXG:5 


Shor 


Ca 1 I 


External Global Procedure 


117 


75 


SCXG: 6 


Shor 


t Col 1 


External Global Procedure 


1 18 


76 


SCXG:7 


Shor 


Cat ! 


Externol Global Procedure 


1 19 


77 


SCXG:8 


Shor 


Col ! 


External Global Procedure 


120 


78 


SIND:0 


Shor 


Index and Load Word 


121 


79 


Si NO: 1 


Shor 


t Index ond Load Word 


122 


7A 


SI NO: 2 


Shor 


Index and Load Word 


123 


78 


SIN0:3 


Shor 


Index ond Load Word 


124 


7C 


SIND: 4 


Shor 


i Index and Load Word 


125 


70 


SIN0:5 


Shor 


Index and Lood Word 
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126 


7E 


S1ND:6 


Shor 


127 


7F 


SIND:7 


Shor 


128 


80 


LDCB 


Lood 


129 


81 


LDCI 


Load 


138 


82 


LCO 


Load 


131 


83 


LDC 


Lood 


132 


84 


LLA 


Load 


133 


85 


LDO 


Lood 


134 


86 


LAO 


Load 


135 


87 


LDL 


Load 


136 


88 


LDA 


Load 


137 


89 


LOO 


Load 


138 


8A 


UJP 


Unco 


139 


8B 


UJPL 


Unco 


149 


8C 


MPI 


Mu 1 t 


1 41 


8D 


DVI 


D i V i 


142 


8E 


STM 


Stor 


143 


8F 


MODI 


Modu 


144 


90 


CPL 


Col t 


145 


91 


CPG 


Col 1 


146 


92 


CPI 


Col 1 


147 


93 


CXL 


Cal 1 


148 


94 


CXG 


Ca 1 1 


149 


95 


CX i 


Cat 1 


150 


96 


RPU 


Re tu 


151 


97 


CPF 


Col 1 


152 


98 


LDCN 


Load 


153 


99 


LSL 


Load 


154 


9A 


LDE 


Load 


155 


9B 


LAE 


Load 


156 


9C 


NOP 


No 


157 


9D 


LPR 


Load 


158 


9E 


BPT 


Breo 


159 


9F 


BNOT 


Bool 


160 


A0 


LOR 


Log! 


161 


A1 


LAND 


Log i 


162 


A2 


AD 1 


Add 


163 


A3 


SBI 


Subt 


164 


A4 


STL 


Stor 


165 


A5 


SRO 


Stor 


166 


A6 


STR 


Stor 


167 


A7 


LDB 


Load 


168 


A8 


NAT 1 VE 


Not i 


169 


A9 


NAT INFO 


Nat i 


170 


AA 


LEREC 


Load 


171 


AB 


CAP 


Copy 


172 


AC 


CSP 


Copy 


173 


AO 


SL0D1 


Shor 


174 


AE 


SL0D2 


Shor 


175 


AF 


UPACK 


Unpo 


176 


B0 


EOU! 


Equo 


177 


B1 


NEOI 


Not 


178 


82 


LEOI 


Less 


179 


B3 


GEOI 


Grea 


180 


B4 


LEUSW 


Less 


181 


B5 


GEUSW 


Grea 


182 


86 


EOPWR 


Equo 


183 


87 


LEPWR 


Less 


184 


88 


GEPWR 


Grea 


185 


89 


EOBYT 


Equo 


186 


BA 


LEBYT 


Less 


187 


88 


GEBYT 


Grea 


188 


8C 


SRS 


Subr 


189 


BD 


SWAP 


Swap 


190 


BE 


TRUNC 


T r un 


191 


BF 


ROUND 


Roun 


192 


C0 


AOR 


Add 


193 


CI 


SBR 


Subt 


194 


C2 


MPR 


Mul t 


195 


C3 


DVR 


i V i 


196 


C4 


STO 


Stor 


197 


C5 


MOV 


Move 


198 


C6 


DUPR 


Dup 1 



t I ndex and Load Wo 

t I ndex and Load Wo 
Cons tan t Byte 
Constant Word 
Cons ton t Offset 
Mu I i t i p I e Word Con 
Loco I Add r ess 
Globol Word 
G I obo I Add r es s 
Local Word 
Intermediate Addre 
I n t e rmed i a t e Wo r d 

nd i t i ono I J ump 

nditionol Long Jump 

i p I y I n t ege r s 

de Integers 

e Mu I t i p I e Words 

I o Integers 
Loco I P r ocedu re 
G I obo I Procedure 
Inter me di ate Proce 
Loco I External Pro 
Gl obol Ex terno I Pr 
I n t e rmed i a t e Ex t e r 

rn From Procedure 
Procedure Formal 
Constant NIL 
Static Link 
External Wo r d 
External Addr ess 

pe rot ion 
Processor Reg i s t e r 

kpo i n t 

ean NOT 

CO I OR 

col AND 

I n t ege r s 

r oc t In tege r s 

e Local Word 

e Global Word 

e Intermediate Word 
Byte 

ve Code 

ve Code Informotion 
Current EREC Point 
Array Porome t e r 
S t r i ng Par ome ter 

t Load Intermediate 

t Load Intermediate 

ck Field From Top 

I I n tege r Compo r i so 

Equal Integer Compo 
Than o r Equo I I n t e 

ter Than or Equal I 
Than or Equal Unsi 

t e r Than or Equo I U 

t Set Compo r i son 
Than or Equal Set 

ter Than or Equal S 

I Byte Array Compor 
Than o r Equo I Byte 

ter Than or Equal B 

ange Set 
Words 

cote Reo I 

d Real 

Rea I s 

r ac t Reo I s 

i p I y Reals 

de Reo I s 

e Word Indirect 
Words 

i c o t e Real 



dure 

cedu r e 

ocedu r e 

na I P r ocedu r e 



Wo r d f poren t ) 
Word (grandparent) 

f Stack 

n 

r i son 

ge r Compo r i son 

nteger Comparison 

gned Word Compor i son 

nsigned Word Comparison 

Comparison (subset) 

et Comparison (superset) 

i son 

Array Comparison 
yte Array Comparison 
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199 




C7 


ADJ 


200 




C8 


STB 


201 




C9 


LDP 


202 




CA 


STP 


203 




CB 


CHK 


204 




CC 


FLT 


205 




CO 


EOREAL 


206 




CE 


LEREAL 


207 




CF 


CEREAL 


208 




00 


LOM 


209 




01 


SPR 


210 




02 


EFJ 


21 1 




03 


NFJ 


212 




04 


FJP 


213 




05 


FJPL 


214 




06 


XJP 


215 




07 


1 XA 


216 




08 


1 XP 


217 




09 


STE 


218 




DA 


1 NN 


219 




OB 


UNI 


220 




OC 


(NT 


221 




00 


OIF 


222 




OE 


SIGNAL 


223 




OF 


WAI T 


224 




E0 


ABi 


225 




El 


NGi 


226 




E2 


OUPW 


227 




E3 


ABR 


228 




E4 


NCR 


229 




E5 


LNOT 


230 




E6 


IND 


231 




E7 


INC 


232 




E8 


EOSTR 


233 




E9 


LESTR 


234 




EA 


GESTR 


235 




EB 


ASTR 


236 




EC 


CSTR 


237 




ED 


INCI 


238 




EE 


DECl 


239 




EF 


SCPI 1 


240 




F0 


SCP12 


241 




F1 


TJP 


242 




F2 


LDCRL 


243 




F3 


LDRL 


244 




F4 


STRL 


245 




F5 


STOD 


246 




F6 


STEO 


247 




F7 


ADI2 


248 




F8 


SBi2 


249 




F9 


MP 12 


250 




FA 


0Vi2 


251 




FB 


INC2 


252 




FC 


RED2 


253 




FD 


EXT 1 


254 




FE 


INCBI 





FF 


00 


LOCO 


1 


FF 


01 


OUPD 


2 


FF 


02 


SWAPO 


3 


FF 


03 


MP 12 


4 


FF 


04 


DEC2 


5 


FF 


05 


NEG2 


6 


FF 


06 


ABS2 


7 


FF 


07 


E0I2 


8 


FF 


08 


NEI2 


9 


FF 


09 


LE!2 


10 


FF 


0A 


GEI2 


1 1 


FF 


0B 


iXA2 


12 


FF 


0C 


IXP2 


13 


FF 


00 


iNCB2 


1 4 


FF 


0E 


XJP2 


15 


FF 


0F 


CHK2 


16 


FF 


10 


REXT I 



Ad j us t Set 

Store Byte 

Load Pocked Field 

Store Packed Field 

Range Check 

Float Integer 

Equal Real Comparison 

Less Than or Equal Real Comparison 

Greoter Than or Equal Real Comparison 

Load Mu I t t pi e Words 

Store Processor Register 

Equal False J ump 

Not Equol False Jump 

False J ump 

Fo i se Long Jump 

I ndexed J ump 

I ndex Array 

I ndex Pac ked Array 

Store External Word 

Set Membership Test 

Set Un i on 

Setlntersection 

Set Differ ence 

Signal Semaphore 

Wait On Semaphore 

Absolute Value Integer 

Negate I n t ege r 

Oup I i CO te Word 

Absolute Value Real 

Nego t e Reo I 

Logical NOT (1*s complement) 

Index and Load Word 

Increment Word Address 

Equal String Comparison 

Less Than or Equal String Comporison 

Greater Thon or Equal String Comparison 

Assign String 

Check S t r i ng 1 ndex 

! nc r emen t Integer 

Decrement Integer 

Short Colt Intermediate Procedure ^parent) 

Short Call intermediate Procedure (grandparent) 

True Jump 

Load Real Constont 

Load Real 

Store Rea I 

Store Indirect Doubleword 

Store Externa! Doubleword 

Add I n t ege r 2 

Sub t r ac t I n t ege r 2 

Multiply !nteger2 

i V i de I nteger2 

Increment Integer2 

Reduce Integer2 to Integer 

Extend Integer To Integer2 

Increment Pointer With Integer Byte Offset 

Load Constant Doubleword 

Duplicate Doubleword 

Swop Doublewords 

Modu I o ! n t ege r 2 

Decrement lnteger2 

Nega te In tege r 2 

Absolute Value !nteger2 

Equal Integer2 Comparison 

Not Equal Integer2 Comporison 

Less Than Or Equal lnteger2 Comparison 

Greater Than Or Equal integer2 Comparison 

Index Array integer2 

Index Packed Array Integer2 

Increment Pointer With Integer2 Byte Offset 

Indexed Jump Integer2 

Integer2 Rongecheck 

Reversed Extend Integer 
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17 


FF 


1 1 


RFLT 


18 


FF 


12 


FLT2 


19 


FF 


13 


RFLT2 


20 


FF 


14 


ADIU 


21 


FF 


15 


SBIU 


22 


FF 


16 


MP 1 U 


23 


FF 


17 


OVI U 


24 


FF 


18 


MDI U 


25 


FF 


19 


INCU 


26 


FF 


1A 


DECU 


27 


FF 


IB 


CHKU 


28 


FF 


1C 


REDU 


29 


FF 


ID 


EXTU 


30 


FF 


IE 


REXTU 


31 


FF 


IF 


FLTU 


32 


FF 


20 


RFLTU 


33 


FF 


21 


LSLW 


34 


FF 


22 


LSRW 


35 


FF 


23 


ASRW 


36 


FF 


24 


LSLD 


37 


FF 


25 


LSRD 


38 


FF 


26 


ASRD 


39 


FF 


27 


LANDD 


40 


FF 


28 


LORD 


41 


FF 


29 


LNOTD 


42 


FF 


2A 


LXORW 


43 


FF 


28 


LXORD 


44 


FF 


2C 


PTO 


45 


FF 


2D 


OTP 


46 


FF 


2E 


TRNC2 


47 


FF 


2F 


R0ND2 


48 


FF 


30 


— 


49 


FF 


31 


— 


50 


FF 


32 


RCALL 


51 


FF 


33 


PTA 


52 


FF 


34 


ATP 


53 


FF 


35 


AMOVE 


54 


FF 


35 


DEREF 


55 


FF 


37 


SETAR 



Reversed Float Integer 

Float In tege r 2 

Reversed Float Integer2 

Add Integer Unsigned 

Subtroct Integer Unsigned 

Multiply Integer Unsigned 

Divide Integer Unsigned 

Modulo Integer Unsigned 

Increment Integer Unsigned 

Decrement Integer Unsigned 

Unsigned Integer Rongecheck 

Reduce Integer2 To Unsigned Integer 

Extend Unsigned Integer To Integer2 

Reversed Extend Unsigned Integer To IntegerZ 

Float Unsigned Integer 

Reversed Float Unsigned Integer 

Log i col Shi f t Le f t Word 

Logical Shi f t Right Word 

Arithmetic Shift Right Word 

Logical Shift Left Doubleword 

Logical Shift Right Doubleword 

Arithmetic Shift R i gh t Doub I ewo r d 

Logical AND Doubleword 

Logical OR Doubleword 

Logical NOT Doubleword 

Logical Exclusive OR Word 

Logical Exclusive OR Doubleword 

Poi nter To Word Of f se t 

Word Of f set To Poi nter 

Truncate Real to !nteger2 

Round Reol to Integer2 

Unoss i gned 

Unass i gned 

Mac i ntosh ROM Co I I 

Pointer To Absolute Address 

Absolute Address To Pointer 

Absolute Move Left 

Dereference Absolute Handle 

Set Action Routine 
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C.2. Alphabetical Listing 



AB I 224 E0 Absolute Value Integer 

ABR 227 E3 Absolute Vo I ue Real 

ABS2 6 FF 06 Absolute Vo ! ue Integer2 

ADI 162 A2 Add Integers 

ADI2 247 F7 Add Integer2 

ADIU 20 FF 14 Add Integer Unsigned 

ADJ 199 C7 Adjust Set 

ADR 192 C0 Add Reals 

AMOVE 53 FF 35 Absolute Move Left 

ASRD 38 FF 26 Arithmetic Shift Right Doubleword 

ASRW 35 FF 23 Arithmetic Shift Right Word 

ASTR 235 EB Assign String 

ATP 52 FF 34 Absolute Address To Pointer 

BNOT 159 9F Boolean NOT 

BPT 158 9E Breakpoint 

CAP 171 AB Copy Array Parameter 

CHK 203 CB Range Check 

CHK2 15 FF 0F !nteger2 Rangecheck 

CHKU 27 FF IB Unsigned integer Rongecheck 

CPF . 151 97 Coll Procedure Formal 

CPG 145 91 Call Global Procedure 

CP I 146 92 Coll Intermediate Procedure 

CPL 144 90 Coll Local Procedure 

CSP 172 AC Copy String Parameter 

CSTR 236 EC Check String Index 

CXG 148 94 Coll Global External Procedure 

CXI 149 95 Call Intermediate Externa! Procedure 

CXL 147 93 Coil Loco! External Procedure 

DEC2 4 FF 04 Decrement Integer2 

DECI 238 EE Decrement Integer 

DECU 26 FF 1A Decrement Integer Unsigned 

DEREF 54 FF 36 Dereference Absolute Handle 

0! F 221 OD Set Di f ference 

DUPO 1 FF 01 Duplicate Doubleword 

DUPR 198 C6 Duplicate Real 

DUPW 226 E2 Duplicate Word 

DVl 141 8D Divide Integers 

DV12 250 FA Divide Integer2 

DVIU 23 FF 17 Divide Integer Unsigned 

DVR 195 C3 Divide Reals 

EFJ 210 D2 Equal False Jump 

EQBYT 185 89 Equal Byte Array Comparison 

EQi2 7 FF 07 Equal Integer2 Comparison 

EOPWR 182 86 Equal Set Comparison 

EOREAL 205 CD Equal Real Comporison 

EOSTR 232 E8 Equal String Comparison 

EQU I 176 B0 Equal Integer Comparison 

EXTI 253 FD Extend Integer To integer2 

EXTU 29 FF ID Extend Unsigned Integer To Integer2 

FJP 212 D4 Fol se Jump 

FJPL 213 D5 False Long Jump 

FLT 204 CC Float Integer 

FLT2 18 FF 12 Fioot Integer2 

FLTU 31 FF \F Float Unsigned Integer 

GEBYT 187 88 Greater Than or Equal Byte Array Comparison 

GEi2 10 FF 0A Greater Than Or Equal Integer2 Comparison 

GEPWR 184 B8 Greater Than or Equal Set Comparison (superset) 

GEOI 179 B3 Greater Than or Equal Integer Comparison 

GEREAL 207 CF Greater Than or Equal Real Comparison 

GESTR 234 EA Greater Than or Equal String Comparison 

GEUSW 181 B5 Greater Than or Equal Unsigned Word Comparison 

INC 231 E7 Increment Word Address 

1NC2 251 FB Increment }nteger2 

INCB2 13 FF 0D Increment Pointer With integer2 Byte Offset 

INCBI 254 FE Increment Pointer With Integer Byte Offset 

INCI 237 ED Increment Integer 

INCU 25 FF 19 Increment Integer Unsigned 

!ND 230 E6 Index and Load Word 
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Load Indirect Doubleword 

Set Membership Test 

Set Intersection 

I nde X Array 

Index Array lnteger2 

I ndex Pac ked Array 

Index Packed Array Integer? 

Load External Address 

Logical AND 

Logical AND Doubleword 

Load Global Address 

Lood Constant Offset 

Load Intermediate Address 

Load Byte 

Load Mulitiple Word Constant 

Lood Constant Byte 

Load Constant Doubleword 

Load Constant Word 

Load Cons tan t N I L 

Load Real Constant 

Load External Wo r d 

Load External Doubleword 

Load Loco I Wo r d 

Load Local Doubleword 

Load Mul t i pi e Words 

Load Globol Word 

Load GLobol Doubleword 

Load Pac ked Field 

Load Real 

Less Than or Equo I Byte Array Comparison 

Less Than Or Equal Integer? Comparison 

Less Than or Equal Set Comparison (subset) 

Less Than or Equal Integer Comparison 

Less Than or Equal Real Comparison 

Load Current EREC Pointer 

Less Than or Equal String Comparison 

Less Than or Equal Unsigned Word Comparison 

Load Local Address 

Logical NOT (1's complement) 

Logical NOT Doubleword 

Load Intermediate Word 

Load Intermediate Doubleword 

Logical OR 

Logical OR Doubleword 

Load Processor Register 

Load Static Link 

Logical Shift Left Doubleword 

Log i CO 1 Shift Le f t Word 

Logical Shift Right Doubleword 

Logi cal Shift Ri gh t Word 

Logical Exclusive OR Doubleword 

Logical Exclusive OR Word 

Modu I o In t ege r 2 

Modulo Integer Unsigned 

Modu I o Integers 

Move Words 

Mu I t i p I y In tege r s 

Multiply I n t ege r2 

Multiply Integer Unsigned 

Mu I t i p I y Reals 

Native Code Information 

Native Code 

Nego te In tege r2 

Not Equal Integer? Comparison 

Not Equal Integer Comparison 

Not Equal False Jump 

Nego te Integer 

Negate Reo 1 

No Ope rot ion 

Word Of f set To Po i nter 

Pointer To Absolute Address 

Poi nter To Word Of f set 

Mac i ntosh ROM Co I I 
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1 NDD 


92 




5C 


1 NN 


218 




DA 


INT 


220 




DC 


1 XA 


215 




D7 


1 XA2 


1 1 


FF 


0B 


1 XP 


216 




D8 


1XP2 


12 


FF 


0C 


LAE 


155 




9B 


LAND 


161 




A1 


LANDD 


39 


FF 


27 


LAO 


134 




86 


LCO 


CL 




82 


LDA 


136 




88 


LDB 


167 




A7 


LDC 


131 




83 


LDCB 


128 




80 


LDCO 





FF 


00 


LDCl 


129 




81 


LDCN 


152 




98 


LDCRL 


242 




F2 


LDE 


154 




9A 


LDED 


91 




5B 


LDL 


135 




87 


LDLD 


88 




58 


LDM 


208 




D0 


LDO 


133 




85 


LDOD 


90 




5A 


LDP 


201 




C9 


LDRL 


243 




F3 


LEBYT 


186 




BA 


LEI2 


9 


FF 


09 


LEPWR 


183 




B7 


LEOl 


178 




B2 


LEREAL 


206 




CE 


LEREC 


170 




AA 


LESTR 


233 




E9 


LEUSW 


180 




B4 


LLA 


132 




84 


LNOT 


229 




E5 


LNOTD 


41 


FF 


29 


LOD 


137 




89 


LOOD 


89 




59 


LOR 


160 




A0 


LORD 


40 


FF 


28 


LPR 


157 




90 


LSL 


153 




99 


LSLD 


36 


FF 


24 


LSLW 


33 


FF 


21 


LSRO 


37 


FF 


25 


LSRW 


34 


FF 


22 


LXORD 


43 


FF 


2B 


LXORW 


42 


FF 


2A 


MDi2 


3 


FF 


03 


MOlU 


24 


FF 


18 


MODI 


143 




8F 


MOV 


197 




C5 


MP 1 


140 




8C 


MP 12 


249 




F9 


MP lU 


22 


FF 


16 


MPR 


194 




C2 


NAT INFO 


169 




A9 


NAT IVE 


168 




A8 


NEG2 


5 


FF 


05 


NE12 


8 


FF 


08 


NEOI 


177 




B1 


NFJ 


211 




D3 


NGI 


225 




E1 


NCR 


228 




E4 


NOP 


156 




9C 


OTP 


45 


FF 


2D 


PTA 


51 


FF 


33 


PTO 


44 


FF 


2C 


RCALL 


50 


FF 


32 
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RED2 


252 




FC 


Reduce i n t ege r 2 


to In tege r 




REOU 


28 


FF 


1C 


Reduce Integer2 


To Uns i gned 1 n t ege r 




REXT 1 


16 


FF 


10 


Reve 


- sed Extend 


1 n t ege r 




REXTU 


30 


FF 


IE 


Reve 


' sed Ext end 


Unsigned Integer To Integer2 




RFLT 


1 7 


FF 


1 1 


Reve 


sed F 


oat 


n tege r 




RFLT2 


19 


FF 


13 


Reve 


sed F 


oat 


nteger2 




RFLTU 


32 


FF 


20 


Reve 


sed F 


oat Unsigned Integer 




R0ND2 


47 


FF 


2F 


Roun< 


i Real 


to In tege r 2 




ROUND 


191 




BF 


Rounc 


j Reo 1 








RPU 


150 




96 


Re tu 


n F r om Pr ocedu re 




SBI 


163 




A3 


Subt 


ac t I n t ege r s 




S8i2 


248 




F8 


Subt 


oc t t n t eger2 




SBIU 


21 


FF 


15 


Subt 


oc t integer Unsigned 




SBR 


193 




CI 


Subt 


ac t Rea 1 s 






SCPI 1 


239 




EF 


Shor 


Ca 1 1 


Intermediate Procedure (parent) 




SCPI2 


240 




F0 


Shor 


Col 1 


Intermediate Procedure (grondporen 


t) 


SCXG; 1 


1 12 




70 


Shor 


Co 1 i 


External Global Procedure 




SCXG:2 


113 




71 


Shor 


Col 1 


Externol Global Procedure 




SCXG: 3 


1 14 




72 


Shor 


Cal 1 


External Global Procedure 




SCXG:4 


115 




73 


Shor 


Co 1 1 


External Global Procedure 




SCXG: 5 


116 




74 


Shor 


Col r 


External Global Procedure 




SCXG:6 


117 




75 


Shor 


Cal 1 


External Global Procedure 




SCXG: 7 


1 18 




76 


Shor 


Cai 1 


External Global Procedure 




SCXG:8 


1 19 




77 


Shor 


Co i 1 


External Globot Procedure 




SETAR 


55 


FF 


37 


Set Action 


Rou t 


ne. 




S IGNAL 


222 




OE 


S i gnc 


3l Semaphore 




S 1 ND : 


120 




78 


Shor 


Index and 


Load Word 




S IND: 1 


121 




79 


Shor 


1 ndex and 


Load Word 




SIND:2 


122 




7A 


Shor 


1 ndex and 


Load Word 




SI NO: 3 


123 




7B 


Shor 


index and 


Load Word 




S IND: 4 


124 




7C 


Shor 


1 ndex and 


Load Word 




S INO :5 


125 




7D 


Shor 


1 ndex and 


Load Word 




SIN0:6 


126 




7E 


Shor 


1 ndex and 


Load Word 




SI NO: 7 


127 




7F 


Shor 


1 nde X and 


Load Word 




SiNOO:0 


80 




50 


Shor 


1 nde X and 


Lood Doub 1 ewo r d 




SI NOD: 1 


81 




51 


Shor 


I ndex and 


Load Doub 1 ewor d 




S INDD: 2 


82 




52 


Shor 


1 ndex and 


Load Doub 1 ewo r d 




Si NOD: 3 


83 




53 


Shor 


1 ndex and 


Load Doub 1 ewo r d 




SINDO: 4 


84 




54 


Shor 


1 nde x and 


Load Doub I ewo r d 




SIN0D:5 


85 




55 


Shor 


I nde X and 


Load Doubleword 




Si NOD: 6 


86 




56 


Shor 


1 ndex and 


Load Doub 1 ewo rd 




St NOD: 7 


87 




57 


Shor 


1 ndex and 


Load Doubleword 




SLDC:0 







00 


Shor 


Load 


Word 


Con slant 




SLOG: 1 


1 




01 


Shor 


Load 


Word 


Con s t an t 




SLDC:2 


2 




02 


Shor 


Load 


Word 


Cons ton t 




SLDC:3 


3 




03 


Shor 


Load 


Word 


Cons ton t 




SLDC:4 


4 




04 


Shor 


Load 


Word 


Cons tan t 




SLDC:5 


5 




05 


Shor 


Load 


Word 


Cons tan t 




SLOG: 6 


6 




06 


Shor 


Load 


Word 


Cons t an t 




SLDC:7 


7 




07 


Shor 


Lood 


Word 


Cons tan t 




SLDC:8 


8 




08 


Shor 


Load 


Word 


Cons tan t 




SLDC:9 


9 




09 


Shor t 


Load 


Word 


Cons tan t 




SLDC: 18 


10 




0A 


Shor 


Load 


Word 


Cons tan t 




SLDC: 1 1 


1 1 




08 


Shor 1 


Load 


Word 


Cons t on t 




SLDC: 12 


12 




0C 


Shor 


Load 


Word 


Cons t an t 




SLDC: 13 


13 




00 


Shor 


Load 


Word 


Cons tan t 




SLDC: 14 


1 4 




0E 


Shor 


Load 


Word 


Cons ton t 




SLDC: 15 


15 




0F 


Shor 


Load 


Word 


Cons ton t 




SLDC: 16 


16 




10 


Shor 


Load 


Word 


Cons tan t 




SLDC; 17 


17 




1 1 


Shor 


Load 


Word 


Cons t an t 




SLDC: 18 


18 




12 


Shor 


Load 


Word 


Cons ton t 




SLDC: 19 


19 




13 


Shor 


Load 


Word 


Cons tan t 




SLDC:20 


20 




14 


Shor 


Load 


Word 


Cons ton t 




SL0C:21 


21 




15 


Shor \ 


Load 


Word 


Cons ton t 




SL0C:22 


22 




16 


Shor 


Load 


Word 


Constant 




SLDC:23 


23 




17 


Shor 


Load 


Word 


Cons t on t 




SLDC:24 


24 




18 


Shor 


Load 


Word 


Cons tan t 




SLDC:25 


25 




19 


Shor 


Lood 


Word 


Cons ton t 




SLDC: 26 


26 




1A 


Shor 


Load 


Word 


Cons tan t 




SL0C:27 


27 




IB 


Shor 


Load 


Word 


Cons tan t 




SLDC;28 


28 




1C 


Shor 


Lood 


Word 


Cons ton t 




SLDC:29 


29 




ID 


Shor 


Lood 


Word 


Cons tan t 




SLDC:30 


30 




IE 


Shor 


Load 


Word 


Cons ton t 
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SLDC 


31 


31 


SLDCO:e 


65 


SLDL 


1 


32 


SLDL 


2 


33 


SLDL 


3 


34 


SLDL 


4 


35 


SLDL 


5 


36 


SLDL 


6 


37 


SLDL 


7 


38 


SLDL 


8 


39 


SLDL 


9 


40 


SLDL 


10 


41 


SLDL 


1 1 


42 


SLDL 


1 2 


43 


SLDL 


13 


44 


SLDL 


1 4 


45 


SLDL 


15 


46 


SLDL 


16 


47 


SLDLD: 1 


66 


SLDLD:2 


67 


SLDLD: 3 


68 


SLDLD:4 


69 


SLDLD: 5 


70 


SLDLD:6 


71 


SLDO 


1 


48 


SLDO 


2 


49 


SLDO 


3 


50 


SLDO 


4 


51 


SLDO 


5 


52 


SLDO 


6 


53 


SLDO 


7 


54 


SLDO 


8 


55 


SLDO 


9 


56 


SLDO 


10 


57 


SLDO 


1 1 


58 


SLDO 


12 


59 


SLDO 


13 


60 


SLDO 


14 


61 


SLDO 


15 


62 


SLDO 


16 


63 


SLDOO: 1 


72 


SLD0D:2 


73 


SLDOO: 3 


74 


SLDOD: 4 


75 


SLD0D:5 


76 


SLDOD: 6 


77 


SLD0D:7 


78 


SLDO0:8 


79 


SLLA: 1 


96 


SLLA:2 


97 


SLLA: 3 


98 


SLLA: 4 


99 


SLLA:5 


100 


SLLA:6 


101 


SLLA:7 


102 


SLLA: 8 


103 


SL0D1 


173 


SL002 


174 


SPR 


209 


SRO 


165 


SROD 


95 


SRS 


188 


SSTL: 1 


104 


SSTL:2 


105 


SSTL:3 


106 


SSTL:4 


107 


SSTL:5 


108 


SSTL:6 


109 


SSTL:7 


110 


SSTL:8 


1 1 1 


SSTP 


64 


STB 


200 


STE 




217 



IF 
41 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
2A 
2B 
2C 
20 
2E 
2F 
42 
43 
44 
45 
46 
47 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
3A 
38 
3C 
3D 
3E 
3F 
48 
49 
4A 
4B 
4C 
4D 
4E 
4F 
60 
61 
62 
63 
64 
65 
66 
67 
AD 
AE 
01 
A5 
5F 
BC 
68 
69 
6A 
68 
6C 
60 
6E 
6F 
40 
C8 
09 



Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Sho r 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Sho r 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Shor 

Sho r 

Shor 

Shor 

Shor 

Shor 

Sho r 

Shor 

Store 

Store 

Store 

S u b r Q 

Shor t 

Shor t 

Shor t 

Shor t 

Shor t 

Shor t 

Shor t 

Shor t 

Shor t 

Store 

Store 



Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Loo 
Pro 
G!o 
G\ o 
nge 
Sto 
S to 
Sto 
Sto 
Sto 
Sto 
Sto 
Sto 
Sto 
By t 
Ext 



Wor 
Dou 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Loc 
Glo 
Gl o 
Gl o 
G 

Glo 
Gl o 
G! o 
Gl o 
Glo 
Gl o 
Glo 
Glo 
Glo 
G 

Glo 

Glo 

Gl o 

Gl o 

Gl o 

Gl o 

Gl o 

Gl o 

G! o 

Gl o 

Loc 

Loc 

Loc 

Loc 

Loc 

Loc 

Loc 

Loc 

I nt 

I nt 

ocesso 

Qbol W 

Dbo 1 D 

Set 

re Lo 

re Lo 

re Lo 

re Lo 

re Lo 

re Lo 

re Lo 

re Lo 

re Pa 



Cons 
ewo r 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Wor 
Dou 
Dou 
Dou 
Dou 
Dou 
Dou 
Wo I 
Woi 
Woi 
Wo I 
Woi 
Woi 
Woi 
Woi 
Woi 
Woi 
Woi 
Woi 
Woi 
Woi 
Woi 
Woi 
Doi 
Dot 
Dot 
Dot 
Dot 
Dot 
Dot 
Dot 
Addi 
Addi 
Addi 
Addi 
Addi 



on t 
Cons t on t Zero 



ewo r d 
ewo r d 
ewo r d 
ewo rd 
ewo r d 
o r d 



I e 
I e 
I e 
I e 
I e 
1 e 
I e 
I e 

5SS 

5S S 
5SS 
5 S S 
5 SS 



word 
o r d 
o r d 
o r d 
o r d 
o r d 
or d 

wo r d 



a I Add r es s 
Add r ess 
a I Add r es s 



e rmed i < 
e rmed i < 
r R e g i ; 
o rd 
oub I ew< 



Wo rd f pa rent) 
Word (grandparent) 



ca I 
col 
CO 1 

col 

CO I 

ca I 
ca ! 
CO I 

eked 



e r no 1 Wo r d 
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STED 246 F6 Store External Doubleword 

STL 164 A4 Store Local Word 

STLO 93 5D Store Local Doubleword 

STM 142 8E Store Multiple Words 

STO 196 C4 Store Word Indirect 

STOO 245 F5 Store Indirect Doubleword 

STP 202 CA Store Packed Field 

STR 166 A6 Store Intermediate Word 

STRD 94 5E Store Intermediate Doubleword 

STRL 244 F4 Store Real 

SWAP 189 BD Swap Words 

SWAPD 2 FF 02 Swop Doublewords 

TJP 241 F1 True Jump 

TRNC2 46 FF 2E Truncate Real to Integer2 

TRUNC 190 BE Truncate Real 

UJP 138 8A Unconditional Jump 

UJPL 139 88 Unconditional Long Jump 

UNI 219 08 Set Union 

UPACK 175 AF Unpack Field From Top Of Stack 

WAIT 223 OF Wo i t On Semaphore 

XJP 214 06 Indexed Jump 

XJP2 14 FF 0£ Indexed Jump Integer2 
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C.3. p — Code Index 

The following list defines the codes used in the p— code index that 

follows. Each code corresponds to the name of a section of the 
P-M.ACHINE ARCHITECTURE chapter. 

BAC Byte Axray Comparisons 

BLS Byte Load and Store 

CL Constant Loads 

CS Concurrency Support 

DLS Indirect Load and Stores 

ELS External Loads and Stores 

GLS Global Loads and Stores 

lA Integer Arithmetic 

ILS Intermediate Loads and Stores 

JMP Jumps 

LLS Local Loads and Stores 

LO Logical Operators 

MI Miscellaneous Instructions 

MLS Multiple Word Loads and Stores 

OTC Operand Type Conversion Operators 

PC Parameter Copying 

PF Packed Field Loads and Stores 

RA Real Arithmetic 

RCR Routine Calls and Returns 

SET Set Operators 

SIA Structure Indexing and Assignment 

SO Shift Operators 

STR String Operations 

UA Unsigned Arithmetic 



The following index indicates for each p— code which section of 
the P-MACHINE ARCHITECTURE chapter it may be found in. 



ABI 


lA 


AD J 


SET 


ATP 


OTC 


ABR 


RA 


ADR 


RA 


BNOT 


LO 


ABS2 


lA 


AMOVE 


SIA 


BPT 


RCR 


ADI 


lA 


ASRD 


SO 


CAP 


PC 


ADI2 


lA 


ASRW 


SO 


CHK 


lA 


ADIU 


UA 


ASTR 


STR 


CHK2 


lA 
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CHKU 


UA 


ING 


SIA 


LEUSW 


LO 


CPF 


RCR 


1NC2 


lA 


LLA 


LLS 


CPG 


RCR 


1NCB2 


SIA 


LNOT 


LO 


CPI 


RGR 


INCBl 


SIA 


LNOTD 


LO 


GPL 


RCR 


INCI 


lA 


LOD 


ILS 


CSP 


PC 


INCU 


UA 


LODD 


ILS 


CSTR 


STR 


IND 


DLS 


LOR 


LO 


CXG 


RCR 


INDD 


DLS 


LORD 


LO 


CXI 


RCR 


INN 


SET 


LPR 


MI 


CXL 


RCR 


INT 


SET 


LSL 


RCR 


DEG2 


lA 


IXA 


SIA 


LSLD 


SO 


DECI 


lA 


IXA2 


SIA 


LSLW 


SO 


DECU 


UA 


IXP 


SIA 


LSRD 


SO 


DEREF 


OTC 


1XP2 


SIA 


LSRW 


SO 


DIP 


SET 


LAE 


ELS 


LXORD 


LO 


DUPD 


Ml 


LAND 


LO 


LXORW 


LO 


DUPR 


Ml 


LANDD 


LO 


MDI2 


lA 


DUPW 


Ml 


LAO 


GLS 


MDIU 


UA 


D\a 


lA 


LGO 


CL 


MODI 


lA 


DAa2 


lA 


LDA 


ILS 


MOV 


SIA 


DVIU 


UA 


LDB 


BLS 


MPI 


LA 


DVR 


RA 


LDC 


MLS 


MPI2 


lA 


EFJ 


JMP 


LDCB 


CL 


MPIU 


UA 


EOBYT 


BAG 


LDCD 


CL 


MPR 


RA 


EQI2 


LA 


LDCI 


CL 


NATINFO MI 


EQPWR 


SET 


LDCN 


CL 


NATIVE 


MI 


EQRE/\I. 


RA 


LDGRL 


MLS 


NEG2 


lA 


EQSTR 


STR 


LDE 


ELS 


NEI2 


lA 


EQUI 


lA 


LDED 


ELS 


NEQI 


lA 


EXTI 


OTC 


LDL 


LLS 


NFJ 


JMP 


EXTU 


OTC 


LDLD 


LLS 


NGI 


lA 


FJP 


JMP 


LDM 


MLS 


NCR 


RA 


FJPL 


JMP 


LDO 


GLS 


NOP 


MI 


FLT 


OTC 


LDOD 


GLS 


OTP 


OTC 


FLT2 


OTC 


LDP 


PF 


PTA 


OTC 


FLTU 


OTC 


LDRL 


MLS 


PTO 


OTC 


GEBYT 


BAG 


LEBYT 


BAG 


RCALL 


MI 


GEI2 


lA 


LEI2 


lA 


RED2 


OTC 


GEPWR 


SET 


LEPWR 


SET 


REDU 


OTC 


GEQI 


lA 


LEQI 


lA 


REXTI 


OTC 


GEREAL 


RA 


LEREAL 


RA 


REXTU 


OTC 


GESTR 


STR 


LEREC 


MI 


RFLT 


OTC 


GEUSW 


LO 


LESTR 


STR 


RFLT2 


OTC 
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RFLTU 


OTC 


SWAPD 


MI 


ROND2 


OTC 


TJP 


JMP 


ROUND 


OTC 


TRNC2 


OTC 


RPU 


RCR 


TRUNC 


OTC 


SBI 


lA 


UJP 


JMP 


SBI2 


lA 


UJPL 


JMP 


SBIU 


UA 


UNI 


SET 


SBR 


RA 


UPACK 


PF 


SCPll 


RCR 


WAIT 


CS 


SCPI2 


RCR 


XJP 


JMP 


SCXGn 


RCR 


XJP2 


JMP 


SETAR 


MI 






SIGNAL 


CS 






SINDn 


DLS 






SINDDn 


DLS 






SLDCn 


CL 






SLDCDO 


CL 






SLDLn 


LLS 






SLDLDn 


LLS 






SLDOn 


GLS 






SLDODn 


GLS 






SLLAji 


LLS 






SLODl 


ILS 






SL0D2 


ILS 






SPR 


MI 






SRO 


GLS 






SROD 


GLS 






SRS 


SET 






SSTLn 


LLS 






SSTP 


PF 






STB 


BLS 






STE 


ELS 






STED 


ELS 






STL 


LLS 






STLD 


LLS 






STM 


MLS 






STO 


DLS 






STOD 


DLS 






STP 


PF 






STR 


ILS 






STRD 


ILS 






STRL 


MLS 






SWAP 


MI 
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INDEX 



10-17 



abs, 4-3, 4-12 

absadr , 4-3, 4-18, 4-19, 

5-8, 5-9 
absmove, 4 — 3, 4 — 20, 5 — 8, 

5-10, 5-26 
absnil, 5—9 

activation record, 10—3 
adr, 2-51, 4-3, 4-18, 5-9 
Application Heap Zone, 9 — 2, 

9-3, 9-5, 9-6, 9-7, 

9-10, 9-11, 9-12, 

9-13 
grow zone function, 9—10 
ApplLimit, 9-6, 9-10, 9-12 
attach, 4—6 



backing up disks, 1—4 
band , 4—3, 4—15 
bnot, 4-3, 4-15, 4-16 
boolean , 2—50, 5 — 13 
bootstrap, 2-10, 2-12, 2-46 

errors, 2-18, 2-45 
bor, 4-3, 4-15 
break facility, 2-9, 2-23 
bundle bit, 2-17, 2-51, 

2-52, 6-7 
bxor, 4—3, 4—15 



chr, 4-12 

Clipboard, 3—1, 3—3, 3 — 11, 
3-13 

close , 2 — 51 
ClrErrHandler, 2-48 
compilation unit, 7—2, 9—4 
Compiler, 1-2, 2-2, 2-25, 

2-27, 2-37, 2-43 
backend errors, 2 — 8 
example listing, 2—8 
fatal errors, 2—7, 2—8 
input resource file, 2—4, 

2-12 
input text file, 2—3 
interpreting listings, 2—8 
listing file, 2-5, 2-7, 2-8 
output code file, 2—3, 

2-7 
progress report, 2—6 
startup questions, 2—2 
syntax error 

reporting, 2—6 
termination, 2—3, 2—4, 

2-5, 2-7 
compiler options, 2—6, 4—36 
$B Begin Conditional 

Comp, 4-38, 4-43 
$C Copyright, 4-38 
$D Conditional Comp 

Flag, 4-38, 4-43 
default settings, 4—37 
$D Symbolic 

Debugging, 4—38 
$E End Conditional 

Comp, 4-38, 4-43 
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$1 INCLUDE File, 4-39 
$1 I/O Check, 4-39 
$L Compiled 

Listing, 4—40 
$N Native Code 

Generation, 4 — 41 
$P Page, 4-41 
$Q Quiet, 4-41 
$R2 and $R4 Real 

Size, 4-42 
$R Range Checking, 4—41 
$T Title, 4-42 
$U Use Library, 4-42 
$U User Program, 4 — 43 
concurrency, 9—9, 10—20 
process cancelation, 2—47 
subsidiary tasks, 9 — 6, 

9-12 
task queues, 10—23 
task switch, 10—24 
constant pool, 10—12 
ControlMgr, A~17 
CURPROC, 10-31 
cursor, 2—33, 2—36, 3—6 
CURTASK, 10-23, 10-31 



Debugger, 2-8, 2-9, 2-11, 
2-13, 2-21, 2-22, 
2-47, 2-50, 8-1 
.break points, 8—7 
changing the frame of 

reference, 8—15 
■command codes, 8—21 
command format, 8—3 
command summary, 8—21 
current activation 

record, 8—5 
current address, 8—5 
disassembling p— 

code, 8—9 
displaying registers, 8—16 



display options, 8—5, 

8-18 
examining memory, 8—10 
examining 

variables, 8—12 
installation, 8 — 2 
interaction 

procedure, 2—47, 2—50 
modifying memory, 8—10 
modifying variables, 8 — 12 
single stepping, 8—8 
symbolic debugging, 8—6 
Debug Runtime, 1—3, 2—11, 

2-19, 2-43, 7-2 
DECORS routine, 10-99 
derefhnd , 4-3, 4-19, 5-8, 

5-10, 5-27 
DeskMgr, A-20 
desktop, 2-17, 2-25, 2-37, 

2-51, 2-53, 6-7 
DialogMgr, A-21 
disk swap boxes, 5—29, 9—7, 

9-9 
disk swapping, 2—29, 2—37 
dispose , 2-24, 9-4 
div, 4-11 
drive numbers, 2—29, 2—37 



Editor, 1-2, 2-5, 2-25, 
2-27, 3-1 

basic editing, 3—3 

deleting text, 3—3 

entering text, 3—3 

file size limit, 3—2 

multiple files, 3—6 

scrolling, 3—2, 3—8 

selecting text, 3—6 
Editor Commands 

Edit, 3-3, 3-11, 3-12 

File, 3-2, 3-3, 3-4, 3-6, 
3-10 
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Find, 3-15 
Font, 3-4, 3-17 
Format, 3—4, 3—16 
Search, 3—4, 3 — 14 
Size, 3-4, 3-18 
ejecting disks, 2 — 34 
Empty Program, 1 — 3, 2—4, 

2-Jl, 2-12, 2-13, 

2-43, 2-45, 2-46, 

2-52, 6-3, 6-4, 6-13 
Environment Record 

(EREC), 10-2, 10-19, 

10-22, 10-31 
Environment Vector 

(EVEC), 10-2, 10-16, 

10-19, 10-32 
Errbrhandl.CODE, 1-3 
Error __Handling unit, 2—31, 

2-46, 2-52, 5-28 
interface, 2—47 
ErrToMessage, 2-49 
EventMgr, A-24 
executing programs, 2—25 
execution error, 10—25 
Executive, 1-2, 2-9, 2-25 
exit , 2-49, 2-50 
extend , 4—13 
external, 4-7, 4-25, 4-26, 

5-30 
External Code Pool 

Region, 9-5, 9-13 



Faulthandler process, 9—9, 
9-10, 9-11, 9-12, 
9-13 
faults, 9-1, 9-5, 10-24 
detection, 9—9 
heap, 5-23, 5-27, 9-9, 

9-10, 9-12, 9-13 

segment, 5—23, 5—27, 

9-9, 9-11, 10-24 



stack, 5-23, 5-27, 9-9, 
9-12, 10-24 
FileMgr, A-26 
files 

accessing, 2—28 
data files, 2 — 31 
data fork, 2-2, 2-10, 

2-18, 2-34 
disk files, 2-32, 2-33 
icons, 2-31, 2-53 
limits on open files, 2 — 34 
naming 

conventions, 2—28, 
2-29, 2-30, 2-37 
opening, 2—37 
open permissions, 2 — 32 
resource fork, 2—2, 2—11, 

2-18, 2-34, 2-44 
signature, 2—44, 2—47, 

2-51, 2-52 
simultaneous opens, 2—32 
standard icons, 2 — 31 
temporary, 2—31 
text files, 2-31 
types, 2-31, 2-47, 2-51, 

6-3 
unique signatures, 2—53 
Finder, 2-17, 2-25, 2-45, 
2-51, 2-52, 2-53, 
2-54, 6-7 
FIRST program, 1—5 
FlushEvents, 5-23 
FontMgr, A-29 
FrMacBool, 5-13 
FrSmall, 5-13 



GetlndString, 6-10 
GetNextEvent, 2-34 
GetOSEvent, 2-34 
GetStackSlop, 2—51 
gotoxy , 4—4, 4—6 
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grafports, 2-32, 2-36 
Grow, 1-3, 5-8, 5-31 
Grow.R, 1-3, 5-31 
grow zone functions, 9—10 



halt, 2-24 
handle, 5 — 10 

dereference, 5 — 10, 5 — 27 
hardware requirements, 1 — 1 
heap, 10-2 
HeapEnd, 9-6, 9-10, 9-12, 

9-13 
heap expansion error, 9 — 12 
heap zones, 9—11 
HideCursor, 5-24 



icons, 2-17, 2-31, 2-37, 
2-51, 2-53, 6-7, 
6-11 

Imagewriter printer, 2 — 5 
tab expansion, 2 — 32 

implementation, 2—40, 
2-42 

InitApplZone, 5-22 

InitCursor, 5 — 24 

InitDialogs, 5 — 23 

InitFonts, 5-23 

InitGraf, 5-23 

InitWindows, 5—24 

input , 2—32, 4—6 

Inside Macintosh^ 2—28, 
2-29, 2-52, 5-1, 
5-7, 5-8, 5-9, 5-10, 
5-20, 5-25, 5-27, 
6-1, 6-5, 6-6, 9-10, 
9-11 

integer2 , 4-3, 4-8, 4-10, 
4-15, 4-16, 5-8, 
5-11 

integer , 4-10, 4-15, 4-16 



integer2 

comparisons, 4 — 10 

constants, 4 — 9 

conversions, 4 — 13 

operations, 4—11 

routines, 4 — 12 

subrange types, 4 — 9 

usage, 4—8 

values, 4—8 
interface, 2-40, 2-42 
Internal Code Pool 
Region, 9—5 
Interpreter Program Counter 

(IPC), 10-22, 10-32 
interrupt button, 2—9 
interrupts, 4—6 
I/O errors, 2-7 
I/O operations, 2 — 32 

ioresult values, 2 — 33 

keyboard, 2—32 
IORESULT, 10-32 
ioresult , 2-33, 2-47, 4-6, 

4-39 
lorToMessage, 2—49 



keyboard 

special sequences, 2—34 
keyboard , 4—6 



Librarian, 1-3, 2-14, 2-19, 
2-25, 2-27, 2-37, 
2-42, 2-43, 7-1, 
9-5 
menu, 7—4 

library code files, 2 — 14, 
2-20, 2-34, 2-38, 
2-41, 2-42, 2-43 

Library Files list, 2—14, 
2-15, 2-17, 2-19, 
2-20, 7-1, 7-2 
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Lisa computer, 2 — 10 

locate , 4-3, 4-19, 5-8, 5-9, 

5-15, 5-26 
long integer, 10—95 
LONGOPS unit, 10-98 



MacBool, 5-13 
MacCore, A-31 
MacData, A-32 
MacErrors, A— 33 
Mac Interface, 1 — 3 
Macintosh 

debuggers, 9—3 
device names, 2 — 30 
File Manager, 2-28, 2-37 
grow zone 

functions, 9—10 
interrupt button, 2—9 
Memory Manager, 2—44, 
9-5, 9-7, 9-10, 
9-11, 9-12 
Operating System, 2—15, 
2-28, 2-34, 2-35, 
4-3, 4-17 
stack sniffer, 9—6 
Macintosh, 0-5, 1-4, 2—26, 

3-5 
Macintosh Interface 
Units, 5—1 
accessing globals, 5—27 
booleans, 5 — 13 
differences, 5—20 
enumerated types, 5—17 
example program, 5—31 
intialization, 5—23 
organization, 5 — 1 
packed data, 5—14, 5—18 
parameters, 5—7 
pointers, 5—8, 5—9, 5—11 
procedure parameter 
restrictions, 5—25 



procedure 

parameters, 5—15 
use at compile time, 5—3 
use at runtime, 5—6 
variable 

parameters, 5 — 12 
Mac Library, 1-2, 2-14, 

5-6 
MacPaint, 2-34 
MacsBug, 2-10, 9-3 
MacWorks, 2-10, 9-3 
MacWrite, 2-2, 3-11, 3-17 
main task 

stack, 9-2, 9-6, 9-9, 
9-10 
mark, 2-24 
Mark Stack Control Word 

(MSCW), 10-4 
Mark stack Pointer 

(MP), 10-22, 10-32 
master pointer blocks, 2—44 
maxint2 , 4—9 
memlock , 9—7, 9—11 
Memory Collector, 9—10, 
9-11, 9-12, 9-13 
Memory Manager, 5—20 
master pointers, 5—21 
restrictions, 5—21, 5—22 
strategy of use, 5—22 
Memory Mgr, A— 36 
memswap , 9—7 
MenuMgr, A-38 
mod, 4 — 11 



new , 9—4 
NewHandle, 9-11 
New^ Window, 5-24 



odd, 4-7, 4-12, 4-15 
offset , 4-3, 4-18 
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ord , 4-3, 4-4, 4-7, 4-12, 

4-15, 4-17 
0SType,^-19 
OsTypes, A— 41 
OsUtilities, A-44 
output , 2-32, 4-6 



Packages, A— 47 

Pascal Data Ajrea, 2—19, 

2-21, 4-17, 5-21, 

5-25, 9-3, 9-5 
Pascal Folder, 2-11, 2-27 
Pascal heap, 2-19, 2-21, 

9-4, 9-5, 9-9, 9-10, 

9-12 
Pascal Heap Block, 2—44, 

9-3, 9-4, 9-10, 

9-12, 9-13 
Pascal Runtime, 1—2, 2—11, 

2-19, 2-43, 7-2 
PBIOMgr, A-51 
p-code, 2-10, 9-4, 9-11, 

10-1 
p— -'System, 4—4 
Performance Monitor, 2 — 11, 

2-13, 2-47, 2-50, 

8-1, 8-26 
p— Machine, 1-2, 2-11, 

2-44, 2-46, 9-3, 

9-4, 9-9, 10-1 
pmachine , 4—3, 4—5, 4 — 20 
p— Machine Emulator 

(PME), 10-1 
PmStartStop, 2-50 
Point, 5-19 
pointer , 4 — 3, 4 — 18 
pred , 4-3, 4-12 
PrintDriver, A~57 
PrintMgr, A— 54 
process, 2—50, 9—6, 9—9 
program, 2-42, 9-1, 9-3, 

9-4, 9-6 



p — System, 4—1, 4—4 



QdTypes, A-58 
QuickDraw, 2-32, 2-35, 

A- 60 
character drawing 

pen, 2-32, 2-33, 

2-36 
OUICKSTART, 2-20 



read , 2-32, 4-13 
readln, 2-32, 4-13 
READYQ, 10-23, 10-32 
ReAllocHandle, 9-11 
reduce , 4—14 
reladr , 4-3, 4-18, 4-19, 

5-9 
release , 2-24, 9-4 
relocation list, 10—14 
required files, 2—11, 2—18, 
2-44 
locations, 2—12 
reset , 2-29, 2-32, 2-37 
ResMgr, A-67 

resources, 2-10, 2-12, 2-13, 
2-14, 2-18, 2-43, 
6-1, 6-4 
attribute byte, 6—5 
definition, 6—4 
identifiers, 6—5 
names, 6—5 
ResrvMem, 9—12 
rewrite , 2-29, 2-32, 2-37, 

2-51 
RMaker, 1-3, 2-10, 2-13, 
2-14, 2-18, 2-25, 
2-27, 2-43, 2-52, 
6-1 
comments, 6 — 2 
errors, 6—13 
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file "name 

conventions, 6—2, 6—3 

generating Pascal 

compiler input, 6—13 

include statement, 6—4 

input file, 6 — 2 

output file, 6—2 

syntax, 6 — 6 

type statement, 6—4 
round , 4 — 13 

routine dictionary, 10—11 
runtime errors, 2—9, 2—21, 
2-46 

fatal, 9-11, 9-12, 9-13 
Runtime Files, 2—11 
Runtime Options, 2—13, 
2-15 

default settings, 2—13 
Runtime Support 

Library, 2-11, 2-14, 
2-15, 2-19, 2-20, 
2-21, 2-31, 2-32, 
2-33, 2-35, 2-42, 
2-43, 2-44, 2-46, 
9-1, 9-3, 9-5, 9-6, 
9-7 

bootstrap, 9—3 

composition, 9—13 

icons, 2—11 

KERNEL unit, 9-4, 
9-9, 9-10 

startup errors, 2—18, 
2-19 
Runtime Support 

Package, 9—3 

bootstrap, 9—9 



ScrapMgr, A-70 
screen window 
title, 2-12 
segment, 2-38, 2-40, 9-4, 
9-10, 9-11, 10-4, 



10-9 

controlling residency, 9 — 7 

handles to, 9—5 

host, 7-2 

intersegment calls, 9—5 

location, 9—5 

names, 9 — 5 

number of routines, 9—4 

principal, 9—4 

structure, 9—4 

subsidiary, 7—2, 9—4 
segment dictionary, 10—4 
Segment Information Block 

(SIB), 10-2, 10-18 
segment reference list, 10—16 
selecting text, 3 — 6 
selective uses 

declaration, 5 — 5 
semaphore , 10—21 
separate compilation, 2 — 41 
Serial, A— 71 

serial devices, 2—7, 2—12, 
2-30, 2-35 

.AIN, 2-13, 2-30, 2-33 

,AOUT, 2-13, 2-30, 
2-33 

.BIN, 2-30, 2-33 

.BOUT, 2-30, 2-33 

nonstandard, 2—30 

open permissions, 2—33 
SetApplBase, 5-22 
SetApplLimit, 5-22 
SetErrHandler, 2-47 
SetFiieSignature, 2—51 
SetFileType, 2-51 
SetGrowZone, 5—22 
setlength , 4—3, 4—14 
Set Options, 1—2, 1—4, 

2-10, 2-13, 2-14, 
2-15, 2-25, 2-27, 
2-52, 7-1 
SetPmlnteraction, 2—50 
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SetPort, 5-24 
SetPtrSize, 9-12 
SetStackSlop, 2-51, 5-28 
shiftleft, 4-3, 4-15, 4-16 
shiftright , 4-3, 4-15, 4-16 
signal , 10-24 
sizeof , 4—3, 4 — 23 
SmallBool, 5—13 
Sound, A— 73 

special devices, 2 — 30, 2 — 35 
backspace 

characters, 2 — 36 
backspace key, 2—32 
bells, 2-36 

carriage returns, 2—36 
.CONSOLE, 2-30, 2-32, 

2-35, 2-36 
.DBGTERM, 2-12, 2-13, 
2-30, 2-32, 2-35, 
8-2 
line feeds, 2—36 
reading characters, 2—33 
special keystrokes, 2—34 
.SYSTERM, 2-30, 2-32, 

2-35 
tab expansion, 2—32 
tabs, 2-36 
sqr, 4-12 
stack, 10-2 
Stack Pointer (SP), 10-22, 

10-33 
stack slop, 2—37, 2—47, 
2-51, 5-28, 5-29, 
9-6 
adjustment, 9—7 
default setting, 5—29 
minimum setting, 5—29 
stack sniffer, 5—30 
Standard Pascal, 4 — 2, 4—8, 
4-9 
ISO standard, 4—2 
standard procedures, 2—51, 
10-87 



standard resources, 2 — 10, 
2-11, 2-12, 2-13, 
2-18, 2-43 

start , 2-50, 9-6 

Startup options, 2—12, 2—15, 
2-16 
default settings, 2—45 

substitution types, 5 — 8 

succ, 4 — 3, 4 — 12 



tab expansion, 2—32, 2 — 36 
Task Information Block 

(TIB), 9-6, 10-21 
TBoxUtils, A-75 
TBTypes, A-77 
TEInit, 5-24 
TextEdit, A-79 
ToMacBool, 5-13 
Top Of Stack (TOS), 10-34 
ToSmall, 5—13 
trunc, 4-5, 4-10, 4-13 



UCSD Pascal, 2-11, 4-1 

absolute pointers, 4—18 
array indexing, 4—8 
assignment 

compatibility, 4—10 
bit manipulation, 4—3, 

4-7, 4-12, 4-15 
case label constants, 4 — 8 
case statement, 4 — 8 
comments, 4—36 
compiler, 2—2 
conditional 

compilation, 4—43 
conformant arrays, 4—2, 

4-30 
declaration ordering, 4—2 
enhancements, 4—2, 

4-14, 4-23 
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extensions, 4—8, 4 — 9, 

4-13, 4-14, 4-15, 

4-17, 4-20, 4-25 
for statement, 4—8 
include files, 4 — 39 
in— line procedures, 4 — 3, 

4-25, 9-8 
interface conformant 

arrays, 4 — 2, 4 — 34 
intrinsics, 2-28, 2-32, 

2-37, 4-3, 4-4, 

4-12, 4-13, 4-14, 

4-17, 4-20, 4-23, 

9-4, 9-7, 9-13 
language changes, 4—4 
limits on open files, 2 — 34 
long integers, 4 — 3, 4—5, 

4-9, 4-10, 4-13 
Macintosh I/O, 2-32 
offsets, 4—17 
operator 

precedence, 4—11 
pointer comparisons, 4—4 
pointer 

manipulation, 4—3, 

4-17 
pointers, 4—17, 9—3 
predeclared 

identifiers, 4 — 5 
procedural 

parameters, 4 — 2 
processes, 9—6 
selective uses 

declaration, 4—2, 

4-26 
standard functions, 4—3, 

4-7, 4-10, 4-12, 

4-13, 4-15 
standard 

procedures, 4—13 
type compatibility, 4—9, 

4-10 



type— precedence, 4 — 13 
unit I/O, 4-4, 4-6 
uses declaration, 2 — 14, 

4-42 
UCSD Pascal 1, 1-2, 3-18 
UCSD Pascal 2, 1-2 
The UCSD Pascal 

Handbook, 1-8, 2-2, . 

2-28, 2-41, 2-42, 

2-43, 4-1, 4-4, 9-7 
unit, 2-41, 2-42, 9-4 
unitbusy , 4—4 
unitclear , 4—4 
unitread, 4—4 
units, 2 — 38 
unitstatus , 4—4 
unitwait , 4—4 
unitwrite , 4—4 
uses, 5—3 



vardispose , 9—4 

varnew, 9—4 

version number string, 2—12, 

2-44 
volume names, 2—29 

by drive number, 2—29 



wait , 10-24 
WindowMgr, A— 81 
write , 2-32 
writeln, 2-32 
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USUS: UCSD p-System User's Society 



USUS: UCSD p — System User's Society 



USUS is the society devoted to users of the p— System and UCSD 
Pascal. Its goal is to promote and influence the development of 
the p — System and UCSD Pascal, as well as to help users learn 
more about their systems. 

USUS provides both formal and informal opportunities for 
members to communicate with and learn from each other. Its 
semiannual national meetings and quarterly newsletters feature 
technical presentations and discussions as well as news about the 
p— System and its derivatives. Electronic mail bulletin boards 
put you in touch wqth a member netw^ork that can provide 
up— to— the— minute information, and special interest groups zero 
in on specific problem areas. USUS also supports a Software 
Exchange Library from which members can obtain software 
source code for a nominal reproduction charge. 

USUS stands for the UCSD p— System User's Society and is 
pronounced "use us." It is nonprofit and vendor independent. 

As a user of UCSD Pascal, USUS is for you. USUS links you 
with a community of users who share your interests. The 
following benefits are available to USUS members: 



SOFTWARE EXCHANGE LIBRAEY 
Tools, games, aides 
Pascal source 
Nominally priced 



INFORMATIVE NATIONAL MEETINGS 
Tutorials 

Technical presentations 
Special interest group meetings 
Low— cost software library access 
Hardware/software demonstrations 
Query "major vendors" 



USUS:-UGSD p-System User's Society 



HELP \1A ELECTRONIC COMMUNICATIONS 
CompuServe/MUSUS SIG 

Bulletin board (I 

Data bases 

Software library 
Telemail 



USEFUL QUARTERLY NEWSLETTER 
Technical articles and updates 
SIG reports 

Software vendor directory 
Library catalog listings 
Organizational news 



ACTIVIST SPECIAL INTEREST GROUPS 
TECHNICAL ARCHI\T: 



USUS MEMBERSHIP APPLICATION 



I am applying for: 



$25 individual membership (North ^Aanerica residents) 
$40 individual membership (For those residing 

outside North America; includes $15 airmail 

service surcharge.) 
[] $500 organizational membership 



Name 



Addr 



City__ 
Phone 



State 



Zip_ 



_Country_ 



_TWX/Telex/EMail_ 



Title/Affiliation_ 



Option: 
Option: 
Option: 



Do not print my phone number in USUS rosters. 
Print only my name and country in USUS rosters. 
Do not release my name on mailing lists. 



Computer System: 



Z-80 

6502/Apple 

9900 

68000 

Macintosh 



8080 
6800 
2 8086/8088 
MicroEngine 
Other 



PDP/LSI- 
6809 
Z8000 
IBM PC 
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USUS MEMBERSHIP APPLICATION 



I am interested in the following Committees/Special Interest 
Groups (SIGs): 



Advanced System Editor SIG 

Sage SIG 

IBM Display Writer SIG 

Application Developer's SIG 

Technical Issues Committee 

Mettings Committee 

DEC SIG 

UCSD Pascal Compatability SIG 

Publications Committee 



Graphics SIG 

Apple SIG 

Software Exchange Library 

IBM PC SIG 

Communications SIG 

Texas Instruments SIG 

Modula-2 SIG 

File Access SIG 

Word Processing SIG 



I am willing to volunteer some time and/or talent in the 
following area(s): 



Mail completed application with check or money order payable to 
USUS and drawn on a U.S. bank or U.S. office, to 
Secretary ,USUS, P.O. Box 1148, La Jolla, CA 92038, USA. 



